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