#!/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]