Re: Match all Odd and Even Numbers

[Dr. Mu]

++ to all who gave encouragement and/or pointers to additional info. -- to all who posted an answer. Hey guys, sometimes pedagogy needs to take precedence over ego!

[Dru]

Thanks for all your guidance. I got it working using this code:

for (@nums){
  if ($_ % 2) {
   push (@odd, $_);
  } else {
     push (@even, $_);
    }
}

[bimleshsharma]

Do you mind to use below code

my $num= [1 .. 100];
my (@even,@odd);
map{0==$_%2 ? push(@odd,$_):push(@even,$_)} @$num;
print "@even and @odd";

[Anonymous Monk]

Hi, you can't talk to the past :)

that post is from 2003, Dru last here 2 years ago