@a = sort {$a <=> $b or length($a) <=> length($b)} @a;