use Data::Alias;
use Data::Dumper;

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

$view[0] = 'x'; 

print Dumper \@foo;