Win8 Strawberry 5.8.9.5 (32)  Thu 05/12/2022 17:00:05
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

use Data::Dumper;

my $array_ref = [ ([ qw(a b c) ]) x 4 ];

print "@$array_ref \n";
print Dumper $array_ref;

^Z
ARRAY(0x983824) ARRAY(0x983824) ARRAY(0x983824) ARRAY(0x983824)
$VAR1 = [
          [
            'a',
            'b',
            'c'
          ],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0]
        ];