sort {
   $b=~/^[a-z]/ <=> $a=~/^[a-z]/
   or lc($a) cmp lc($b)
}