There are two possibilities

• Change the parameters, so that the only list assignment is at the end.

  sub ProcessRecords() {
          my ($myNbr, $totalChilds, $totalAccts, @acctArray) = @_;
  [download]

  In this case the scalars get one value and the rest is slurped by @acctArray. The sequence of parameters has also to be changed at the calling point.

• Or you use references:

  sub ProcessRecords() {
      my ($ref_acctArray,$myNbr,$totalChilds,$totalAccts) = @_;
  [download]

  and call it with

  ProcessRecords( \@SharedPlanAccts, $i1, $n, $totalAccts );
  [download]

  You than have to dereference $ref_acctArray with a @$ref_acctArray.

McA