use Clone qw[ clone ];;

$x = clone \@d;;

pp $x;;
["one", "two", \"two"]

${ $x->[2] } = 'three';;

pp $x;;
["one", "two", \"three"]