http://learn.perl.org/faq/perlfaq4.html#How-do-I-sort-an-array-by-anything-, http://perldoc.perl.org/perlfaq4.html#How-do-I-sort-an-array-by-%28anything%29%3f

 push @entries, [ $sprintfed, $conn{$ip}{$port} ];
@entries = sort { $$a[1] <=> $$b[1] } @entries;
@entries = map { $$_[0] } @entries;
print @entries;
[download]