Select Code to Download

#!/usr/bin/perl
use Language::MySort;
...
my @sorted = my_sort(@needs_sorting);
print join ',',@sorted,"\n";

OUTPUT:
order-> 'r'..'z','a'..'s','R'..'Z','A'..'Q'
...
sgfsdfg,zdef,aSdg,esdf,ldfgs,Sgsdfs,T,Xrty,Esdds,Msdb,Osgr,Psdgs,