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

##</code><code>##

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