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"