TMTOWTDI

my @sorted = (( sort grep { $_ eq lcfirst } @unsorted ), 
              ( sort grep { $_ eq ucfirst } @unsorted ));
[download]

dave