foreach $pt (@{$remote_port [$i]}) {

##</code><code>##

    my %data = (
       'arbornet.org' => [21, 23, 80],
       'slashdot.org' => [80],
       'apple.com'    => [80],
       'yahoo.com'    => [80],
    );