Select Code to Download

$ perl -e 'my $h; my $k="foo"; push @{$$h{k}}, "bar"; use Data::Dumper
+; print Data::Dumper->Dump([$h], ["h"]);'

...
                'bar'
              ]
     };

$ perl -e 'my $h; my $k="foo"; push @{$$h{k}{"name"}}, "bar"; use Data
+::Dumper; print Data::Dumper->Dump([$h], ["h"]);'

...
                          ]
              }
     };