Select Code to Download

$ perl -MData::Dumper -wle '
  $s = 5;
...
  @b = map {$_*=$s; [@a[$_..($_+$s>$#a?$#a:$_+$s-1)]]} 0..$e;
  print Dumper \@b
'

$VAR1 = [
          [
...
            5
          ]
        ];