@OPorts[$a] = $i; $a++;