my @array;
my %hash = ( 1,2,3,4 );
push @array, \%hash;
push @array, {
  another => one => yeah => 1,
};
use Data::Dumper;
print $array[1]->{another}, " bites the dust\n\n";

die  Dumper \@array;
__END__
one bites the dust

$VAR1 = [
          {
            '1' => 2,
            '3' => 4
          },
          {
            'another' => 'one',
            'yeah' => 1
          }
        ];