#!/usr/bin/perl -w
use strict;
my $foo = { 'key1' => [{'keya' => 'a'}, {'keyb' => 'b'}],
'key2' => [{'keyc' => 'c'}, {'keyd' => 'd'}],
};
foreach my $item(@{$foo->{'key2'}})
{
while(my ($key, $val) = each %{$item}) { print "$val "; }
}
print...