sub lexvar {
   my $var = shift;
   /(?{ print($var, "\n") })/;
}

sub pkgvar {
   local our $var = shift;
   /(?{ print($var, "\n") })/;
}

lexvar('abc');  # abc
lexvar('def');  # abc

pkgvar('abc');  # abc
pkgvar('def');  # def