##
my @list = qw(red orange yellow green blue purple);
my @sorted = short_sorts ci_a => \@list;
print "@sorted\n";
# says "blue green orange purple red yellow"
##
##
croak "$type is not supported"
if $type && !exists $sorts{$type};