foreach ...

##</code><code>##

open (FH,  "<${file}.txt")  or die "Can't open ${file}.txt: $!\n";
open (FH1, ">${file}1.txt") or die "Can't open ${file}1.txt: $!\n";
while (<FH>) {	...do stuff with $_...  }
close (FH)  or die "Can't close ${file}.txt: $!\n";
close (FH1) or die "Can't close ${file}1.txt: $!\n";