my (@array, %hash);

do_something($_) for (1 .. 3);

sub do_something {
    my $num = shift;
    $hash{$num} = $num;
    push @array, { %hash };
}

use Data::Dumper;
print Dumper(\%hash);

foreach my $href (@array) {
    my ($key, $value);
    print "Hash ($href):\n";
    foreach $key (keys %$href) {
        $value = $href->{$key};
        print "\t$key => $value\n";
    }
}