#!/usr/bin/perl

my $aref = [[(1..10)],
            [(30..40)],
            [qw(the quick brown fox)],
            [qw(jumps over the lazy dog)]
    ];

for (@$aref) {
    print "$_: @$_\n";
}

print "\n";

# print some values, just to test whether dereferencing is correct
print ${$$aref[0]}[0], "\n";
print $aref->[0]->[0], "\n";
print $aref->[1]->[0], "\n";
print $aref->[2]->[0], "\n";
print $aref->[3]->[0], "\n";

print "\n";

for (sort { $aref->[$a]->[0] cmp $aref->[$b]->[0] } @$aref) {
    print "$_: @$_\n";
}