list Fruits = ["apples","bannas","pears","peaches"]
integer llength;   // list length
integer x = 0;

default
{

    state_entry()
    {
        llength = llGetListLength(Fruits);
    }

    touch_end(integer num)
        {

        llOwnerSay(llList2String(Fruits,++x));

        if(x = llength)
        x =0;
    }
}