DB<2> while ( my ($x) = () ) {die $x}

  DB<3>