my @Top = sort { $b->[1] <=> $a->[1] } map { [ $_, $Uniq{$_} ] } keys %Uniq;
undef %Uniq;
@Top = @Top[0..9];