$value= "global";

do { print "Inside block: $value\n" }
   for (my $value= 5;  $value < 7;  ++$value);

##</code><code>##

$_= 1;

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

##</code><code>##

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