use strict;
use warnings;

my @array = (-11,-13,4, 22, 17);
print find_max_odd(@array), "\n";
sub find_max_odd {
    my $max;
    for my $num (@_) {
        next unless $num % 2;
        $max = $num unless defined $max;
        $max = $num if $num > $max;
    }
    return defined $max ? $max : "No odd number found\n";    # this could be replaced with if conditional statements if needed
}