#!perl/bin/perl

use strict;

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

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