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