while( <DATA> ) {
    next unless m/^\.SUBCKT\s+$runset{SchCell}/;
    my %seen;
       .
       .
       .