Help for this page
my @temp; foreach (@moo) {if (! ($_ % 2)){push @temp, $_;}} @moo=@temp;
my $i=1; {{{print "$i";}; if ($i++ < 5){redo;}}}