$value= "global";

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