foreach my $line (@netlist) {
    # ...
}

##</code><code>##

for (my $i = 0; $i < @netlist; $i++) {
     my $line = $netlist[$i];

     if ($yadda_yadda) {
          $line = $netlist[++$i];
          # ...
     }
}