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

alias push @view, @foo[7,8];  # Added alias here.

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

print Dumper \@foo;

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