foreach my $i ("" "1") {
open (FH$i,  "<${file}$i.txt") or die "${file}$i.txt"; }