($sum += chop $number) ... ($sum += $LUHN10_map[chop $number]) while $number ne '';