johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -MList::Util=max -E '
my @tests = (
   [ 17, -3, 12 ],
   [ 2, 4, 6 ],
   [ -7, -4, -11 ],
   [ -5, 5, 16 ],
   );
foreach my $test ( @tests )
{
    my $maxOdd = max grep { $_ % 2 } @$test;
    say $maxOdd ? $maxOdd : q{No result};
}'
17
No result
-7
5