#! perl
use strict;
use warnings;
use Data::Dumper;

my @list  = qw(abc def);
my $nelts = 3;

print "\nCase 1:\n";
my @array1 = (copy(\@list)) x $nelts;
$array1[0][0] = 'xyz';
$array1[0][1] = '123';
print Dumper(\@array1);

print "\nCase 2:\n";
my  @array2 = map { copy(\@list) } 1 .. $nelts;
$array2[0][0] = 'uvw';
$array2[0][1] = '456';
print Dumper(\@array2);

sub copy
{
    my ($list_ref) = @_;
    print "call copy($list_ref)\n";
    my @clone = @$list_ref;
    return \@clone;
}