$hash{substr $_, 2} = delete $hash{$_} for keys %hash;