#! perl
use strict;
use warnings;
use Data::Dump;

my @accts_split;
my @accts  = (23 .. 257);
my $start  =  0;
my $length =  @accts / 10;

for my $i (0 .. 9)
{
    my $end = ($i == 9) ? $#accts : $start + $length - 1;
    @{$accts_split[$i]} = @accts[$start .. $end];
    $start += $length;
}

dd @accts_split;