$sum += hex($_) for $hex=~/../g;