Select Code to Download

  my @a = qw( a b c d e f g );
...
      push @b, [ @a[ $i .. $i+$n-1 ] ];
  }