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