use strict;
use warnings;
use Data::Dumper;
my %hash;
open(FILEHANDLE, "<hash.dat") or die("boo! error");
while(<FILEHANDLE>) {
#    print $_;
    %hash = split(" ", <FILEHANDLE>);
}
print Dumper(\%hash);

__END__
Odd number of elements in hash assignment at .., <FILEHANDLE> line 2.
$VAR1 = {};