Надо заполнить массив большим кол-вом данных. Ну, например, dim $arr[100] = [1,2,3,...,99,100]. Как не писать все в одной строке?