Re: Empyting an array inot multiple arrays

[clueless newbie]

Offered for consideration --- Note it neither really creates the arrays @array1,@array2,@array3 nor does it really clear @array_original.

#!/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(*A
+rray *Array_1 *Array_2 *Array_3)]);