#!/usr/bin/perl
use strict;
use warnings;

my @array;
my %hash = ( a => 1, b => 2, c => 3, d => 4 );
$array[0] = \%hash;
$array[1] = \%hash;
$array[2] = \%hash;

my $cnt=0;
for my $hash_ref (@array)
{
  print "POS: ",$cnt++,"\n";
  next unless( $hash_ref );
  while( my ( $key, $value ) = each( %$hash_ref ) )
  { print "    $key = $value\n"; }
}