{  
  my $var = 'first var';  # sets $var for this block

  # defines a sub IN this block, so gets this $var
  sub do_a {
      print "In 'aaa' var is set to '$var'\n";
  }
}