А как более правильно делать сортировку выводы хэша? foreach $nnn (sort { $virus{$b} <=> $virus{$a} } keys %virus) { $out .= " $virus{$nnn} - $nnn\n"; }