my @aryref = &retary;
print ${$aryref[0]}[0];    #print 1st element of 1st array

##</code><code>##

my %hash;
$hash{ary1} = @ary1;
$hash{ary2} = @ary2;
$hash{ary3} = @ary3;

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @aoh;
$aoh[0] = { key => 'value'};
print Dumper(@aoh);