%hash = map { ("~foo$_" => delete $hash{$_}) } keys %hash;