use Data::Dumper;

print Dumper(\%agency);

##</code><code>##

$agency{$e4}->{$e7}->{$e6}++;

##</code><code>##

    $agency{$e3}->{$e4}->{$e7}->{$e6}++;