DB<170> @a=1..2
 => (1, 2)

  DB<171> ( ($x) = shift @a ) ? $x : "false"
 => 1

  DB<172> ( ($x) = shift @a ) ? $x : "false"
 => 2

  DB<173> ( ($x) = shift @a ) ? $x : "false"
 => undef                   # true!