$_ = uc for @array[grep { not $_ % 2 } 0..$#array];