my @l = 1..9; $_ = "foo" for grep $_ % 2, sort reverse @l; print "@l\n";