print FILE Dumper(%foo);

$bar = <FILE>;
%foo = eval{$bar};