Not sure I understand the question completely but the following will print the integers in an array which are even.

for my $w ( @ARGV) {
 next if( $w !~ /^\d+$/); # skip non-numerics
 if( ($w % 2) == 0 ) { print "$w\n" }
}
[download]