Why not just map the defined array values to a hash as keys and then sort numerically? Takes care of duplicates, the sort is fast, and order is retained...not sure how it scales with input size compared with grep though.

@array = sort {$a <=> $b} keys (%hash = map { $_ => 1 } @array);
[download]