{ my $foo; sub foo { 1 } }      # not a closure
{ my $foo; sub foo { $foo } }   # a closure