open my $in1, '<', $file1 or die "Can't open '$file1': $!\n";