use strict;
use warnings;

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

my @foo = qw( A T T G C T T G C T T C );

alias my @view = ( @foo[1,2], @foo[5,6] );

map {$_='x'} @view;

print Dumper \@foo;

alias my @subview = ( @foo[7,8] );

push @view, @subview;

map {$_='$'} @view;

print Dumper \@foo;

print "nok" if $foo[7] ne '$';