Help for this page
#!/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,