$\ = $/;
for (1..2)
{
  my $var = 1;
  print \$var, " created";
  sub function
  {
    print \$var;
  }
  function();
}