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