open (my $fh1, '<', $file1) or die $!;