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