#!/usr/bin/env perl
use Modern::Perl;

sub evens {
    return grep { ! ($_ % 2) } @_;
}
say for evens(1..10);