Help for this page

Select Code to Download


  1. or download this
    push @b, [splice @a, 0, $l] while @a;
  2. or download this
    print "@$_\n" for @b;