hint....

perl -e '%a=(x=>"y");print "$a{x}\n";%a=();print "$a{x}\n"'
[download]

or perhaps you just want to remove some keys there was a clue in the wording of your question

Cheers,
R.