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";
}