[14:26:14.28] c:\test>p1
use constant HASH=>{ a=>1, b=>2 };;
print %{ +HASH };;
a 1 b 2

HASH->{ c } = 3;;
print %{ +HASH };;
c 3 a 1 b 2

delete HASH->{ $_ } for keys %{ +HASH };;
print %{ +HASH };;