my $var=0;
{
  $var=1;
  while ($var < 10) {
    print "$var";
    $var++;
  }
}
print "\n$var \n";

##</code><code>##

my $var=0;
foreach (my $var=1; $var < 10; ++$var){
    print $var;
}
print "\n$var \n";

##</code><code>##

my $var=0;
{
  my $var=1;
  while ($var < 10) {
    print "$var";
    $var++;
  }
}
print "\n$var \n";