perl -de 0
  DB<1> use e; print $x[undef]