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"; }