{
   open(my $fh,  '<', "${file}.txt")  or die "Can't open ${file}.txt: $!\n";
   open(my $fh1, '>', "${file}1.txt") or die "Can't create ${file}1.txt: $!\n";

   while (<$fh>) { print $fh1 $_; }
}