use Data::Dumper;
use Test::More 'no_plan';

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]' );

print Dumper \@view;
__END__
ok 1 - ${$view[0]} is $dna[1]
ok 2 - changing ${$view[0]} changes $dna[1]
$VAR1 = [
          \'x',
          \'T'
        ];
1..2

##</code><code>##

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]}' );