use strict;
my @array = ();
my $hash_ref = {one => "number"};
$hash_ref->{"a"} = "letter";
push @array, $hash_ref;
$hash_ref = {};
%{$hash_ref} = (banana => "fruit",
                carrot => "vegetable");
push @array, $hash_ref;
for my $element (@array) {
    for (sort keys %{$element}) {
        print "$_ => $element->{$_}\n";
    }
}