Update: fixed typo's
Well to complete this thread, I started digging around in the old nodes, and came across Language::MySort by japhy at Language::MySort.
#!/usr/bin/perl
use Language::MySort;
my @order = ('s'..'z','a'..'r','R'..'Z','A'..'Q');
print q(order-> 's'..'z','a'..'r','R'..'Z','A'..'Q'),"\n";
*my_sort = lang_sort(@order);
my @needs_sorting = qw(Psdgs ldfgs Esdds aSdg Sgsdfs zdef Xrty Msdb es
+df sgfsdfg Osgr T);
print join ',',@needs_sorting,"\n";
my @sorted = my_sort(@needs_sorting);
print join ',',@sorted,"\n";
OUTPUT:
order-> 'r'..'z','a'..'s','R'..'Z','A'..'Q'
Psdgs,ldfgs,Esdds,aSdg,Sgsdfs,zdef,Xrty,Msdb,esdf,sgfsdfg,Osgr,T,
sgfsdfg,zdef,aSdg,esdf,ldfgs,Sgsdfs,T,Xrty,Esdds,Msdb,Osgr,Psdgs,