%hash = map { substr ($_, 2) => $hash{$_} } keys %hash;