lexical vars are inaccessible outside of their scope (block) :
$var = ()
But we can access $var through print_var sub,
which retains value of lexical variable otherwise inaccessible :
$var = (1)
this is simplest closure
calling &print_var second time increments previous value of $var
$var = (2)