my @temp;
foreach (@moo) {if (! ($_ % 2)){push @temp, $_;}}
@moo=@temp;

##</code><code>##

my $i=1;
{{{print "$i";}; if ($i++ < 5){redo;}}}