>perl -E 'say for grep { $_%2==0 } (1..10)'
2
4
6
8
10
>

##</code><code>##

>perl -E 'use List::Util qw( first ); say first { $_%2==0 } (1..10)'
2
>

##</code><code>##

>perl -E 'use List::Util qw( any ); say any { $_%2==0 } (1..10)'
1
>

##</code><code>##

>perl -E 'use List::Util qw( all ); say all { $_%2==0 } (1..10)'

>

##</code><code>##

>perl -E 'use List::Util qw( sum ); say sum grep { $_%2==0 } (1..10)'
30
>