@uniq = sort {$a <=> $b } keys %seen;