print "In main scope $_\n" for 1..10; for (1..10) { print "In scoped block:$_\n"; }