Yet another inevitable TMTOWTDI:
#!/usr/bin/env perl
use strict;
use warnings;
use feature qw(say);
use Math::Prime::Util qw(sumdigits);
use Data::Dump;
my @input = (-222, -221, -21, 0, 1, 1, 2, 3,
5, 8, 13, 21, 34, 55, 89, 144);
my @ans = map { (sumdigits($_) % 2) ? $_ : () } @input;
dd \@ans;
__END__
Karls-Mac-mini:monks karl$ ./11146306.pl
[-221, -21, 1, 1, 3, 5, 21, 34, 89, 144]
See also map, Data::Dump, Math::Prime::Util and ntheory.
Best regards, Karl
«The Crux of the Biscuit is the Apostrophe»