my %h = ( foo => 'bar' );
my @a = ( \%h );
print "worked fine\n" if $a[0]{foo} eq 'bar';