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

$h = {
       'k' => [
                'bar'
              ]
     };