@count_s = sort {
     $reportn{$a} <=> $reportn{$b};
} @count_s;

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

##</code><code>##

foreach my $hero ( sort keys %total_o) {
   if  ($reportn_o{$hero}) {
         @reportnL = sort { $total_o{$a} <=> $total_o{$b} } values (%total_o{$hero});
   }
}

for (@reportnL[0..4]) {
  print "$_\n";
}