use Data::Dumper;

print Dumper(\%agency);