Select Code to Download

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

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