Easier yet.

delete @hash{(keys %hash)};
[download]

Update: this is, of course, only useful when you want to use delete the keys from one hash in another one, as in

delete @foo{(keys %bar)};
[download]

Otherwise, only the below solution makes any sense.