#!/usr/local/bin/perl
sub even{
    my @xs = @_;
    my @a;
    for my $x (@xs){
        push(@a, $x) if $x % 2 == 0;
    }
    return @a;
}

@xs = (1..9);
@a = even(@xs);
print "@a\n";