my @odd_digit_sum = grep digit_sum_is_odd($_), @input numbers;

sub digit_sum_is_odd {
  my $input = shift;
  my @digits = split //, $input;
  my $sum;
  $sum += $_ for @digits;
  return $sum % 2;
}