hardburn,
Actually it is a variation on the GRT that tye likes to call The One True Sort. The subtle difference is that you do not have to restore the transformation - you can simply throw it away. An example of a classicle GRT would be:

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

Cheers - L~R