#!/usr/bin/perl
#
# eg14: 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";
}
