#!/usr/bin/env perl

use Data::Dumper;
use strict;
use warnings;

my %hash=("one two"=>"buckle my shoe","three four"=>"shut the door");
my @arrayOfHashes;
for (1..3) {
    push @arrayOfHashes,\%hash;
    }
warn 'BEFORE: ',Data::Dumper->Dump([\@arrayOfHashes],[qw(*arrayOfHashes)]),' ';
$Data::Dumper::Deepcopy=1;
warn 'AFTER: ',Data::Dumper->Dump([\@arrayOfHashes],[qw(*arrayOfHashes)]),' ';