$remote_port[$i] is an array reference. To get each port you should "foreach" $pt contents:

foreach $port (@$pt) { 
    ...
}
[download]