foreach my $line ( @sub_code ) { foreach my $sub ( keys %SUBS ) { if ( $line =~ /[^a-zA-Z]$sub[^a-zA-Z]*\(/ ) { push( @subs, $key ) } } }