DB<1> sub tst { local $_[0]; $_[0]=10 }
 
  DB<2> $a=1
 
  DB<3> tst $a
 
  DB<4> print $a
1