open OLD, "<old.txt" 
   or die "Could not open old.txt: $!";
open NEW, ">new.txt" 
   or die "Could not open new.txt: $!";
my $i = 0;
while (<OLD>) {
   chomp;
   $_ .= $table[ $i++ ];
   print NEW "$_\n";
}
close OLD;
close NEW;