DB<7> sub tst { $_[0]=3 }
 
  DB<8> @a=(1..10)
 
  DB<9> tst $#a
 
  DB<10> p @a
1234