#!/usr/local/bin/perl
sub even{
    grep { $_ % 2 == 0 } @_;
}

print even(1..9), "\n";