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