open( my $fh1, "<", $file1 ) or die "Cannot open [$file1], [$!]";