Is there a line with CCR but no trailing -? You should really just do the pattern match once:

    if ($line =~ /^\#CCR-(.*)/)    {
        my $functionName = $1;        
        my $desc = <DATA>;  # pull the next line        
        $functxt{$functionName} = $desc;
    }
[download]

What's happening is the assignment-match isn't happening, so $functionName is undef.

Be careful over there.