print sort {
   if (($a=~/^[a-z]/) == ($b=~/^[a-z]/)) { $a cmp $b }
   else { $b cmp $a }
} @needs_sorting;