for (1 .. 100) {
 next if $_%2;
 push @even;
}