Select Code to Download

my $top = 5;
foreach $w (sort { $count{$b} <=> $count{$a} } keys %count) {
...

   print "$count{$w} $w\n";
}

my $top = 5;
foreach $w (
...
) {
   print "$count{$w} $w\n";
}

my $top = 5;
my $last_count = -1;
...

   print "$count{$w} $w\n";
}