$_= 1;

do { print "Inside block: $_\n" }
   for (5..7);