Select Code to Download

$VAR1 = {
          '1.2.3.4' => {
...
                              '1500' => 3                             
+                                                             
                       },                                             
+                                                        
};

for my $ip ( keys %conn ) { 
    for my $port ( keys $conn{$ip} ) { 
...
        }   
    }   
}

1.2.3.5         connected to TCP port    20780     7 times
1.2.3.4         connected to TCP port    27029     5 times
1.2.3.6         connected to TCP port     1500     3 times
...