It is always nice to handle exceptions properly in your code. Modify your code a little bit:

        if (defined($functionName)) {
            my $desc = <DATA>;  # pull the next line        
            $functxt{$functionName} = $desc;
        } else {
            print STDERR "bad data: and attach some useful info for yo
+ur debug purpose, such like the original data\n";
        }
[download]