@ARGV = ('firstfile.txt', 'secondfile.txt');
$^I = '.bak';
while (<>){
      # print STDERR "working on file $ARGV\n";
      chomp $_;
      print $_, "_\n";
}