@x = 1..10;;

for my $i ( reverse 0 .. $#x ){ 
    $x[ $i ] & 1 and splice @x, $i, 1; 
};;

print @x;;
2 4 6 8 10