use strict;

my %h = ("foo" => 1,
         "bar" => 2);

push (my @g,\%h);
my $hashref = $g[0];
print $hashref->{foo};