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