open my $f1, '<', $file1 
    or die "Cannot open file '$file1': $!";