use 5.008;
use strict;
use warnings;

use List::MoreUtils qw( part );
use List::AssignRef;
use Data::Dumper;

my @array = (1 .. 40);

my $i = 0;
my $j = @array / 10;

(
    deref(my @array1),
    deref(my @array2),
    deref(my @array3),
    deref(my @array4),
    deref(my @array5),
    deref(my @array6),
    deref(my @array7),
    deref(my @array8),
    deref(my @array9),
    deref(my @array10),
) = part { int($i++/$j) } @array;

print "Let's see what's in \@array1... ";
print Dumper \@array1;

print "Let's see what's in \@array2... ";
print Dumper \@array2;

print "Let's see what's in \@array10... ";
print Dumper \@array10;
[download]