Help for this page

Select Code to Download

Select or download this

use Data::Dump qw( dump );

...

print dump( \%hash ), "\n";
print dump( \%revhash ), "\n";