...
my @ans = grep { sumdigits($_) % 2 } @input;
...