sub dkubb_LUHN10 {
  my $number = shift;
  my $sum;
  ($sum += chop $number) ... ($sum += $LUHN10_map[chop $number]) 
    while $number ne '';
  ($sum % 10 == 0) || 0;
}