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