use strict;
use Data::Dumper;

my %saved = (
  'test1' => {
     'test2' => 'b'
   },
   'b' => [1,2,3,4],
   'test3' => 'x'
);

print "Constructed hash\n";
print Dumper \%saved;

open FILE, ">save.out";
print FILE Dumper \%saved;
close FILE;

my %loaded = %{do 'save.out'};

print "Loaded hash\n";
print Dumper \%loaded;