#!/usr/bin/perl
use strict;
use warnings;

my @needs_sorting = qw(Psdgs ldfgs Esdds aSdg Sgsdfs esdf sgfsdfg Osgr T);
print @needs_sorting,"\n";

my @lc = sort (grep{substr($_,0,1) eq lc(substr($_,0,1)) }@needs_sorting);
my @uc = sort (grep{substr($_,0,1) eq uc(substr($_,0,1)) }@needs_sorting);
print "@lc\n";
print "@uc\n";

push @lc,@uc;

print join ',', @lc,"\n";

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

my @sorted = ("a" .. "z", "A" .. "Z");
my @needs_sorting = ( qw (P l E a S e s O r T) );

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

print join "|",@is_sorted;


##</code><code>##

my @sorted = ('a' .. 'm','n' .. 'z','X' .. 'Z','A' .. 'W');

##</code><code>##

#!/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;