use $listbox->SelectionSet($index) where $index is the new position for CARROTS. By the way, $canvas->activate(1) dosn't make sense unless you named your listbox as $canvas.
haha i did'nt saw that i wrote canvas instead of listbox. my mistake. thanks for the answer! i was having a hard time understanding the selectionset method. :) thanks again!