while(chomp(my $line = <NETLIST>)){

##</code><code>##

while(defined(my $line = <NETLIST>)){
    chomp;