Empyting an array inot multiple arrays

pr09 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Empyting an array inot multiple arrays by Anonymous Monk on Oct 27, 2011 at 15:02 UTC
splice	[reply]
Re: Empyting an array inot multiple arrays by aaron_baugher (Curate) on Oct 27, 2011 at 19:35 UTC
I realize this is probably homework, but you shouldn't do this. Any time you find yourself naming variables var1, var2, var3, etc., that's a very good sign that they should be in some kind of array or hash. If there were ever a reason to break a large array up into smaller ones and have them numbered, you'd want to break it up into `@{$array[0]}, @{$array[1]}, @{$array[2]}`, etc. An array of arrays, with each sub-array limited to whatever size you like, but with them organized inside a top-level array so you don't have to start doing goofy stuff with eval or globs to get the variable names numbered the way you like.	[reply] [d/l]
Re: Empyting an array inot multiple arrays by Lotus1 (Vicar) on Oct 27, 2011 at 15:42 UTC
Remember that 'element 1' will have an index of zero. There won't be an index 300. The indexes will be 0-299.	[reply]
Re^2: Empyting an array inot multiple arrays by pr09 (Novice) on Oct 27, 2011 at 16:24 UTC
Yes the basic idea is the new arrays should not hold more than 100 elements,when it crosses 100 the elements should be copied to a new array.	[reply]
Re: Empyting an array inot multiple arrays by clueless newbie (Curate) on Oct 27, 2011 at 17:20 UTC
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)]);` [download]	[reply] [d/l]