foreach my $ip ( keys %HoH ) {
         foreach my $openPort ( keys %{ $HoH{$ip} } ) {
            print "[ip] $ip [port] $openPort \n";
            }
         }
      }