open my $FH, '<', $file