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