use strict;
use warnings;

my $i=42;
print "outside: $i\n";
for (my $i=5; $i>0; $i--) {
  print "inside: $i\n";
};
print "outside: $i\n";

my $j=666;
print "outside: $j\n";
{ my $j=5;
  do {
   print"inside: $j\n";
   $j--;
 } until($j<=0)
}
print "outside: $j\n";