You want:

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

You should also increment $i in your loop.

However, I would note store the data over two arrays. I'd keep a hash, like this:

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

and iterate with each over the hash.

Abigail