my @input = ( -222, -221, -21, 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144 );

sub oddDigitSum {
    my @ans;
    for (@_) {
        my @digits = split //, abs;
        my $sum;
        $sum += $_ for @digits;
        $sum % 2 && push @ans, $_;
    }
    return @ans;
}
print $_, " " for oddDigitSum(@input);
print “\n”;