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

##</code><code>##

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

# or maybe:

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