my @array = ("my","list","here");
my @ref = ([\@array[2,0]],[\@array[1]]);

${$ref[0][0]} = "changed";
print "${$ref[0][0]} @array";
__END__
changed my list changed