Select Code to Download

use Data::Dumper;
use Test::More 'no_plan';
...
          \'T'
        ];
1..2

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

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