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