use strict;
my $column = $ARGV[0];
my $value  = $ARGV[1];

while ( my $line = <STDIN> ) {
    chomp $line;
    my @vals = split( " ", $line );
    $vals[$column] += $value;
    print join( "\t", @vals ) . "\n";
}