my @OPorts;
my $a = -1;
# [ ... ]
@OPorts[$a] = $i; $a++;