my $input = shift; #### my @digits = split //, $input; #### $sum += $_ for @digits; #### return $sum % 2;
## my @digits = split //, $input; ##
## $sum += $_ for @digits; ##
## return $sum % 2;