DB<111> sub inc_b { my $r=\ $_[0]; $$r++; return }
 
  DB<112> $x=1; inc_b($x); print $x
2
  DB<113> inc_b(1)
 
  DB<114>