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