More weirdness:

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

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print