$choices[ $dialogLB->curselection ] #can't use arr ref as index value
$choices[ @{ $dialogLB->curselection } ] #index value is size of array
$choices[ @$dialogLB->curselection  ] # not an array ref
$choices[ $$dialogLB->curselection  ] # not an scalar ref