@array = sort { $a->[0] cmp $b->[0] } @array; # ascending
#@array = sort { $b->[0] cmp $a->[0] } @array; # descending

##</code><code>##

for my $elem ( @array ) {
    print "$elem->[0]\n";
}

##</code><code>##

print "$_->[0]\n"
    for @array;