#!/usr/bin/perl
#
# eg13: array-of-hashref example
#
use strict;
use warnings;

my @fred = (
   { "one" => "ena", "two" => "duo" },
   { "three" => "drei" },
   { "one" => "une", "two" => "deux" }
);

foreach my $hashref (@fred)
{
    my @x = ();
    foreach my $k (sort keys %$hashref)
    {
        my $v = $hashref->{$k};
	push @x, "$k->$v";
    }
    print join( ", ", @x ). "\n";
}
