my %h = (key1=>'value1',
 	   key2=>{key3=>'value3'});
 
  my $stringy = Dumper \%h;
  {
    no strict 'vars';
    %h = %{eval($stringy)};  
    die"$@" if $@;
  }