#!perl/bin/perl

use strict;

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

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