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