DB<123> sub tst { my $r = \ $_[0]; print ++$$r; }
 
  DB<124> $x=3; for (1,2,$x) { tst($_); print ": ",$_,"\n" }
2: 1
3: 2
4: 4