Select Code to Download

my @d = qw(this is a plain array);
my @a;
$a[0] = @d;
print "The scalar got '$a[0]'\n";
@a[0] = @d;
print "But the array slice got '$a[0]'\n";