$hash{"~foo$_"} = delete $hash{$_} for keys %hash;