for( my $p = 0; $p < @acc_list; $p += 100 ) {
    ...
    my @files1 = @acc_list[ $p .. $p+99 ];
    ...
}