sub luhn2 {
    $_=$i=0;
    split//,pop;
    $_.=(1+$i++%2)*pop while@_;
    s/(.)/+$1/g;
    $_=eval;
    !chop
}