foreach $sourceLine (@SourceData)
    {
    if ($functionName =~ /$sourceLine/) {$counter++;}
    }

##</code><code>##

$counter = grep (/$functionName/ , @SourceData);