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";
}
}
|