That builds a list of keys up front - may or may not be a bad idea. If it is, I use each in scalar context to get something similar looking:

my $k;
delete $hash{$k} while $k = each %hash;
[download]

(Incidentally, I'd write your version like so:)

delete $hash{$_} for keys %hash;
[download]

Makeshifts last the longest.