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