use strict ;
my $FILE = "file.txt";
open (FILE, "$FILE");
my @TOTAL = <FILE>;
close FILE;
 $TOTAL[1] = "TEST\n";
my $FILE2 = "file2.txt";
open (FILE2, ">>$FILE2");
foreach (@TOTAL) {
print FILE2 "$_";
}
close FILE2;