Create an array so that the sublists can be processed in a loop.
length name $ 5 subname $ 8; array sublist{4} 8 sub1-sub4;