I was looking for a way without needing to use a for loop to create a menu, but I guess I'll stick to what I know.
setarray .item$[0],"Apple","Chocolate";
set .@selection, select(.@item$) -1;
That what I wanted to achieve without the for loop.
Heres what I added.
for(set .@i,0; .@i<getarraysize(.@item$); .@i++)
set .@menu$, .@menu$ + .item$[.@i] + ":";