use strict;
use warnings;
open my $fh, '<', 'hash_test.txt' 
    or die "Cant open file $!";

LINE:
while (my $line = <$fh>) 
	{
    	my ($key, $value) = split /\s/, $line;
    	next LINE if not $key;
		$hash{$key} = $value;
    	chomp (%hash);
    	while ( my( $key, $value ) = each %hash )  		
	}

close $fh;