You tell us the problem is related to your XML, but there's nothing relating to XML in your code. Presumably, %subroutines was created from the XML, but you neither show how that was done, nor the contents of %subroutines.

use Data::Dumper;
print(Dumper(\%subroutines));
[download]