Select Code to Download

my $ctr=1;
foreach $key (sort {$hash{$b} <=> $hash{$a}} keys %hash) { 
...
  last if $ctr++ == 10;
}