exten => 3799,1,Set(PEOPLE[1]=Fred)
exten => 3799,n,Set(PEOPLE[2]=Barney)
exten => 3799,n,Set(PEOPLE[3]=Willma)
exten => 3799,n,Set(PEOPLE[4]=Betty)
exten => 3799,n,Set(INDEX=1)
exten => 3799,n,While($["${PEOPLE[${INDEX}]}" != ""])
exten => 3799,n,Noop(PEOPLE[${INDEX}]=${PEOPLE[${INDEX}]})
exten => 3799,n,Set(INDEX=$[${INDEX} + 1])
exten => 3799,n,EndWhile