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