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