foreach $port (@$pt) { 
    ...
}