$ perl -wle " $_ = 333; for $1 ( 666 ){  print $1 if /(...)/;  }"
666

$ perl -wle " $_ = 333; for $1 ( 666 ){  local our $1; print $1 if /(...)/;  }"
Use of uninitialized value $1 in print at -e line 1.