Help for this page
($sum += chop $number) ... ($sum += $LUHN10_map[chop $number]) while $ +number ne '';
('125', '49927398716', '4992739872')
('125', '49927398716', '49927398716','4992739872')