I realize this is way too late to help this anon monk, but in case someone finds via search here's how you can do it with the temp hash...

#!/usr/bin/perl

use strict;
use warnings;

my %hash1 = ("a" => "Apple", "b" => "Ball");
my %hash2 = ("c" => "Cat", "d" => "Dog");

my @myarray; 
push @myarray, \%hash1;
push @myarray, \%hash2;

foreach my $value (@myarray) {

  foreach my $hvalue (keys %{$value}) {

    print $hvalue . "\t";
    print $value->{$hvalue} . "\n";


  }

}
[download]