my @odd_digit_sum = grep digit_sum_is_odd($_), @input numbers; #### my @odd_digit_sum; for (@input) { if (digit_sum_is_odd($_)) { push @odd_digit_sum, $_; } }