Select Code to Download

@count_s = sort {
     $reportn{$a} <=> $reportn{$b};
...
foreach (@count_s[0..4]) {
    print "$_ ====> $reportn{$_}\n";
}

foreach my $hero ( sort keys %total_o) {
   if  ($reportn_o{$hero}) {
...
for (@reportnL[0..4]) {
  print "$_\n";
}