#!/usr/bin/perl 
use strict;
use warnings;
use Data::Alias;
use Data::Dump qw[dd];

my @A = (1,2,3,4,5,7,21,55,66);
dd @A;

alias my @B = @A[2..4];
dd @B;

$B[0] = 0;
dd @B;
dd @A;