#!/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";
}


##</code><code>##


ARRAY(0x8153c28): 1 2 3 4 5 6 7 8 9 10
ARRAY(0x8154630): 30 31 32 33 34 35 36 37 38 39 40
ARRAY(0x81548a0): the quick brown fox
ARRAY(0x8154a50): jumps over the lazy dog

1
1
30
the
jumps

Out of memory!