#!/usr/bin/perl

use strict;
use warnings;

# For example...
my $fruits = [];
my $apple  = { 'apple'  => 1 };
my $orange = { 'orange' => 1 };
my $lemon  = { 'lemon'  => 1 };

# First, something needs to populate the ref.
# This is just an example, so you will naturally
# have to modify this to fit your app better
$fruits = [ $apple, $orange, $lemon, $orange ];

for my $fruit ( @$fruits ) {
    print "$_\n" for keys %$fruit;
}

exit( 0 );


##</code><code>##

print$_ for(map{chr($_)}split(/\s+/,join(/\B?:\w+[^\s+]/,<DATA>)));
__DATA__
67 111 100 101 32 80 101 114 108