open(my $filehandle, '<', $file) or die("Error open file $file $!\n");