my @images = qw( 1 .. 100 );
my @array_of_arrays;
my $number_of_arrays = 2;

my $count = 0;
foreach my $image (@images) {
   my $index = $count % $number_of_arrays;
   push @{ $array_of_arrays[ $index ] }, $image;
   $x++;
}