Select Code to Download

use strict;
use warnings;
...
for my $sortType ('case rev desc', 'case desc', 'ignore') {
    print "$sortType:\n   ", join (', ', shortSorts($sortType, @unsort
+ed_array)), "\n";
}

case rev desc:
   yellow, Green, cyan, Blue, Red, magenta
...
   yellow, magenta, cyan, Red, Green, Blue
ignore:
   Blue, cyan, Green, magenta, Red, yellow