DB<17> ($x= splice @x, 0, 1 ) and print "true"

  DB<18> p !! splice @x, 0, 1

  DB<19>