Select Code to Download

use 5.010;

...
else {
    say "All numbers are even!";
}

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