open DATA, "<$datafile" or die "$!"; 
my $dumped_hash;
{
	local $/;
	$dumped_hash = <DATA>;
}
my %somehash;
%somehash = %{ eval $dumped_hash } if $dumped_hash;