sub luhn {
#234567890123456789012345678901234567890123456789012345678901234567
$a=0;$_=reverse pop;s/(.)(.?)/$a+=$1+($2&&(($2*2-1)%9)+1)/ge;1>$a%10 
}