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