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