use warnings;
use strict;
use Data::Dump qw/pp/;

my @a= ('a','b','c','d');

*b = \$a[1];

$b ="X";

pp @a