open (HANDLE, "list.txt") or die "can't open file";
@file = <HANDLE>;
foreach $row (@file) { 
open NEWFILELIST, ">>newlist.txt" or die "Cannot open newlist.txt for append :$!";
print NEWFILELIST "outputting modified line from list.txt\n";
close NEWFILELIST;
 }
close (HANDLE);