use Data::Dumper; print Dumper(\%hash); print Dumper($ref);