foreach $number (@ARGV) {
  print "$number\n" unless ($number % 2); 
}