#!/usr/bin/perl

use Data::Alias;
use Data::Dumper;
use strict;
use warnings;

my @Array;
$Array[$_]=$_
    for (0..29);
alias my @Array_1=@Array[0..9];
alias my @Array_2=@Array[10..19];
alias my @Array_3=@Array[20..29];

warn Data::Dumper->Dump([\@Array,\@Array_1,\@Array_2,\@Array_3],[qw(*Array *Array_1 *Array_2 *Array_3)]);