#untested
my $code = join("", @sub_code);

foreach my $sub ( keys %SUBS ) {
    while  ( $code =~ /\b$sub\b\(/g ) 
    { 
         push( @subs, $sub ) ;
    }
}