#!/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 esdf sgfsdfg Osgr T);
print join ',',@needs_sorting,"\n";

my @sorted = my_sort(@needs_sorting);
print join ',',@sorted,"\n";