note clueless newbie Offered for consideration --- Note it neither really creates the arrays @array1,@array2,@array3 nor does it really clear @array_original. <code> #!/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)]); </code> 934165 934165