$, = " ";
$d[3] = [qw/just another perl hacker/];
$copy1 = $d[3];
$copy2 = [@{$d[3]}];
print "\$d[3] was", @{$d[3]}, "\n";
$d[3][2] =~ y/p/P/;
print "\$d[3] now", @{$d[3]}, "\n";
print "\$copy1 is", @$copy1, "\n";
print "\$copy2 is", @$copy2, "\n";
__END__
$d[3] was just another perl hacker
$d[3] now just another Perl hacker
$copy1 is just another Perl hacker
$copy2 is just another perl hacker