Select Code to Download

use strict;
use warnings;
...
   $string =~ m{.{6}}g;

print Data::Dumper->Dumpxs( [ \ @AoAofSixes ], [ q{*AoAofSixes} ] );

@AoAofSixes = (
                [
...
                  '8'
                ]
              );