my @dna = \qw( A T T G C );
my @view = @dna[1,2];

is( ${$view[0]}, ${$dna[1]}, '${$view[0]} is ${$dna[1]}' );

${$view[0]} = 'x';

is( ${$view[0]}, ${$dna[1]},
    'changing ${$view[0]} changes ${$dna[1]}' );