Help for this page
my $var=0; { ... } } print "\n$var \n";
my $var=0; foreach (my $var=1; $var < 10; ++$var){ print $var; } print "\n$var \n";