...
sub parse_select { 
     ...
     if ( eval( '$'.$sel_in.'_typ eq "link" ') ) { ... };
     ...
};
...