#!/usr/bin/perl -l
$h = {map { $_ => 'fish' } qw(one two red blue)};
print $h;
print \%{$h};
print \%{\%{$h}};
print \%{\%{\%{$h}}};
print \%{\%{\%{\%{$h}}}};
print \%{\%{\%{\%{\%{$h}}}}};
print \%{\%{\%{\%{\%{\%{$h}}}}}};
print \%{\%{\%{\%{\%{\%{\%{$h}}}}}}};
print \%{\%{\%{\%{\%{\%{\%{\%{$h}}}}}}}};
__END__
HASH(0x17ea548)
HASH(0x17ea548)
HASH(0x17ea548)
HASH(0x17ea548)
HASH(0x17ea548)
HASH(0x17ea548)
HASH(0x17ea548)
HASH(0x17ea548)
HASH(0x17ea548)