Select Code to Download

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

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