$ perl -E '$x = "foo"; say for ($x) x= 2'