use Data::Dumper;
print(Dumper(\%subroutines));