Help for this page

Select Code to Download


  1. or download this
    $out{shift @ref} = [splice @ref,0,2] while @ref;
  2. or download this
    2 => [ 0, 1 ],
5 => [ 3, 4 ]
etc.
  3. or download this
    die if @ref % 3;
$out{$a} = [splice @ref,0,2] while $a = shift @ref;