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