foreach my $line ( @sub_code ) {
   if ( $line =~ /(\w+)\(/ ) {
      if ( exists $SUBS{$1} ) {
         push( @subs, $1 );
      }
   }
}