open my $F1, '<', $file1 
    or die "Cannot open file $file1 \n";

while (my $line = <$F1>) {
 ...
}