use autodie qw[ open ];
open my $F1, '<', $file1;