my $var;
sub aenderbar : lvalue {
  $var;
}
print \aenderbar();