my @nums = (-11, -13, 4);
my @candidates = sort { $a <=> $b } grep $_ % 2, @nums;
if (@candidates) {
    say $candidates[-1];
} else {
    say "They're all even!";
}