in reply to Re: Re: How would I do an inplace edit, prepending
in thread How would I do an inplace edit, prepending '~foo' to every key of a hash? (was: How would I do an inplace edit, prepending)

You know I ++ed that japhy and then decided that it was truly evil. OTOH at least it isn't in void context, eh? This helps the unclean feeling a bit: 
$hash{"~foo$_"} = delete $hash{$_} for keys %hash;

[download]

--
$you = new YOU;
honk() if $you->love(perl)

In Section Seekers of Perl Wisdom