Help for this page
#!/usr/bin/perl ... sort { $a->[1] cmp $b->[1] } # positional sort sort { $a->[0] cmp $b->[0] } # alphabetical sort map prepare_sort(), @words;
baebibb babebib babebibb xaxexi xaxexix