my %hash = ('foo' => 3, 'bar' => 'baz');

open my $out, '>', 'A_tmp_file' or die "Damn: $!";

print $out Dumper(\%hash);

close $out or die $!;

my $ref = do 'A_tmp_file' or die "Noo: $!";

print "$ref->{'bar'}\n";