zentara,
You could always use the ST:

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

@needs_sorting = map { $_->[0] }
                sort { $a->[1] <=> $b->[1]
                            ||
                    $a->[0] cmp $b->[0] }
                map { [$_ , substr($_ , 0 , 1) =~ /^[a-z]/ ? 0 : 1 ] }
+ @needs_sorting;
print "$_\n" for @needs_sorting;
[download]

Cheers - L~R