Select Code to Download

my %Uniq;
while( my $Ip = NextIp() ){
...
# @TopTen =  ( sort { $Fun{$b} <=> $Fun{$a} } keys %Uniq )[ 0 .. 9];

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