perl -e 'my %hash=(q|a|=>100,q|b|=>300); use Data::Dumper; my $obj = Data::Dumper->new([\%hash],[qw|foo|]); print $obj->Dump();'
$foo = {
         'a' => 100,
         'b' => 300