Select Code to Download

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

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