#!/usr/bin/perl
use strict;
use warnings;
#not working
my @sorted = ('a' .. 'm','n' .. 'z','X' .. 'Z','A' .. 'W');
my @needs_sorting = ( qw (Psdf lPik Easd aKwe SSdf eqwer scfgh Oegb rqwer T) );

my %S;
@S{@needs_sorting} = ();
my @is_sorted = grep { ?????? $S{$_} } @sorted;

print join "|",@is_sorted;