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