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 '$';

##</code><code>##

@view
  |- 0: alias $foo[1]  
  |- 1: alias $foo[2]
  |- 2: alias $foo[5]
  |- 3: alias $foo[6]
  |- 4: 'G'
  \- 5: 'C'

##</code><code>##

@view
  |- 0: alias $foo[1]  
  |- 1: alias $foo[2]
  |- 2: alias $foo[5]
  |- 3: alias $foo[6]
  |- 4: alias $foo[7]
  \- 5: alias $foo[8]