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