use feature qw/say/;
use Data::Dumper;

# ...

say Dumper \%hash;