@blah = sort {$a cmp $b || $a <=> $b} @foo;