sub func_lex {
   my ($var) = @_;
   '' =~ /(?{ print("$var\n"); })/;
}


sub func_pkg {
   our ($var) = @_;
   '' =~ /(?{ print("$var\n"); })/;
}

func_lex('foo');  # foo
func_lex('bar');  # foo  !!!

func_pkg('foo');  # foo
func_pkg('bar');  # bar