print "'hash{key}' is a hash reference\n" if ref(\%{$hash{key}}) eq 'HASH';