use Data::Dump qw(pp);
say pp(\%HOH);