sub func {
   for (my $s = $_[0]) {  # Safe.
      ...
   }
}