foreach $pp (@OPorts) { print "$pp, " }