exemple:

#!/usr/bin/perl

@array =("John","Mary","Kate","Dylan","joe");
@array_num=(123,43,1,4,200,329,123);

@array = sort @array;
print "alphabetique trié\n @array\n\n";

@array = sort { $b cmp $a } @array;
print "alphabetique inversé\n@array\n\n";

@array = sort { lc $a cmp lc $b } @array;
print "alphabetique trié sans case\n@array\n\n";

@array = sort { lc $b cmp lc $a } @array;
print "alphabetique inversé sans case \n@array\n\n";

print "\n\n";

@array_num = sort { $a <=> $b } @array_num;
print "numerique trié\n @array_num\n\n";

@array_num = sort { $b <=> $a } @array_num;
print "numerique trié\n @array_num\n\n";


Cela donne:

alphabetique trié
 Dylan John Kate Mary joe

alphabetique inversé
joe Mary Kate John Dylan

alphabetique trié sans case
Dylan joe John Kate Mary

alphabetique inversé sans case
Mary Kate John joe Dylan



numerique trié
 1 4 43 123 123 200 329

numerique trié
 329 200 123 123 43 4 1