DB<7> sub s1 { $_[0] = 1 }

  DB<8> $g = 5

  DB<9> x $g
0  5
  DB<10> x s1( $g )
0  1
  DB<11> x $g
0  1