sub luhn {
    $r=$t=0;
    split//,pop;
    $r.=$_[$_]*(1+($_+$#_)%2)for+0..@_;
    $r=~s/(.)/$t+=$1/eg;
    !chop$t
}