#!/usr/bin/perl
use strict;
use warnings;
my @needs_sorting = qw(Psdgs ldfgs Esdds aSdg Sgsdfs esdf sgfsdfg Osgr T);

@needs_sorting = map { /^[a-z]/ ? "\u$_" : "\l$_" }
               sort
               map { /^[a-z]/ ? "\u$_" : "\l$_" } @needs_sorting;
print "$_\n" for @needs_sorting;