Select Code to Download

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

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

...
          # ...
     }
}