#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;

my %hash = (a => 1);
my @array = (\%hash);
print Dumper(\@array)."\n";
print "key a: ".$array[0]{a};