print Dumper(\%usage);

##</code><code>##

for (keys %usage) { print "$_ = $usage{$_}\n" }