Select Code to Download

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

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

#!/usr/bin/perl -w
use strict;
...
my @aoh;
$aoh[0] = { key => 'value'};
print Dumper(@aoh);