Select Code to Download

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

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

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