@index = $dialogLB->curselection;
$what = $choices[@index];