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