use v5.20;
use Data::Dump "pp";

my @z = glob('{a,b,c}'x6);
my $z = '(?:a()|a()|b()|b()|c()|c()){6}\1\2\3\4\5\6';

for my $j (@z)
{
    $j =~ $z and say pp {$j => \@- };
}