Or even:
    my @ans = grep 1 & sumdigits($_), @input;