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

##</code><code>##

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