while ( @acc_list ) {
 ...
 my @files1 = splice( @acc_list, 0, 100 );
 ...
}