Perl Hashes sortieren

[Mark]

Hallo,

ich habe ein Hash-Array wie folgt:

  
my %ip;  
$ip{"source"}{$src_ip}{$src_port}{$dest_ip}{$dest_port}+=$bytes_total;  
$ip{"source"}{$src_ip}{$src_port}{$dest_ip}{$dest_port}{"outgoing_traffic"}+=$bytes_forwards;  
$ip{"source"}{$src_ip}{$src_port}{$dest_ip}{$dest_port}{"incoming_traffic"}+=$bytes_backwards;  

Dieses wird dynamisch befüllt. Jetzt möchte ich das Hash Array sortieren nach $bytes_total, so dass die Verbindung mit dem höchsten Traffic oben steht. Leider stehe ich komplett auf dem Schlauch.
Danach sollen 5 Verbindungen mit dem meisten Traffic ausgegeben werden.

Probiert habe ich z.B. sowas:

  
my %sorted = sort {$a->[4] <=> $b->[4]} %ip;