my @a; for (0..10) { my $ref = [$_]; push @a, $ref; } for (sort { $a cmp $b } @a) { say "ref: $_ item: $_->[0]" } ref: ARRAY(0x833da18) item: 0 ref: ARRAY(0x8358198) item: 1 ref: ARRAY(0x83581b8) item: 6 ref: ARRAY(0x8358208) item: 4 ref: ARRAY(0x8358258) item: 5 ref: ARRAY(0x83582e8) item: 3 ref: ARRAY(0x8358338) item: 2 ref: ARRAY(0x83584a8) item: 8 ref: ARRAY(0x83584d8) item: 7 ref: ARRAY(0x8364ea0) item: 9 ref: ARRAY(0x8364ed0) item: 10