my @sorted = do {no warnings 'numeric'; sort {$a <=> $b} @array};
[download]