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

  DB<175> ( ($x) = splice @a,0,1 ) ? "$x" : "false"
 => 1

  DB<176> ( ($x) = splice @a,0,1 ) ? "$x" : "false"
 => 2

  DB<177> ( ($x) = splice @a,0,1 ) ? "$x" : "false"
 => "false"