Its name suggests that @uniq should be filled like this:

my @uniq = sort { $a <=> $b }
           grep { $seen{$_} == 1 } keys %seen;
[download]

In other words: get the keys that occur only once and sort them numerically.

— Arien