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

##</code><code>##

('125', '49927398716', '4992739872')

##</code><code>##

('125', '49927398716', '49927398716','4992739872')