DB<100> sub rev { ($_[0],$_[1]) = ($_[1],$_[0]) }

  DB<101> @a=("A","B")
 => ("A", "B")

  DB<102> rev @a

  DB<103> @a
 => ("B", "A")