foreach my $line ( @sub_code ) 
{
    if ($line =~ /[^a-zA-Z]([a-zA-Z_]+[a-zA-Z_0-9]*)[^a-zA-Z]*\(/
        and exists $SUBS{$1}) 
    { push @subs, $key }
}