Help for this page

Select Code to Download

Select or download this

    for my $i (map {$_ * 2} 0 .. $#cardNum / 2) {
        $cardNum[$i] *= 2;
        $cardNum[$i] -= 9 if $cardNum[$i] >= 10;
    }

Select or download this

   return <<INFO;
    
...
   Issuer:      $issuers{$iDigit}

INFO