push @even, grep { !($_%2) } 1 .. 100;