So do I understand correctly that @allkeys = keys %$alldrug; is the line that is throwing the error? What does print pp($alldrug); show, and if that shows undef, what does print pp($tree); show?

Also, note that there are much better modules to parse XML than XML::Simple! I would recommend either XML::LibXML or XML::Twig.