for (qw(The quick brown fox)) {
   for (my $s = $_) {
      s/o/u/g;
   }
}