Select Code to Download

use strict;

...
my $hashref = $k[0];
my %tmp = %{$g{$hashref}};
print $tmp{"foo"}

use strict;

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