sub test {
   # alias my $arg = $_[0];
   our $arg; local *arg = \$_[0];

   $arg = "new value";
}

{
   my $var = "old value";
   print("$var\n");
   test($var);
   print("$var\n");
}