#!perl

use strict;
use warnings;
use feature qw( say );

use Language::Functional qw( any );

sub is_even { $_[0] % 2 == 0 }

say any { is_even(shift) } [ 1, 3, 5, 7 ]; # Prints 0
say any { is_even(shift) } [ 2, 4, 6, 8 ]; # Prints 1

exit 0;