my @unsorted_array = qw(red yellow green cyan blue magenta);

my @sorted_array = sort { short_sorts($a,$b,'ci-d-r") } @unsorted_array;

print "$_\n" for @sorted_array;