open my $fh, '<', $file or die ("ERROR! Opening file $file $!");