$selectVendor = $newTop->Optionbox(-text=>'Vendor',
                   -command => \&select_vendor,
                   -variable=> \$vsel,
                   -font=>$variableFont,
                   -options=> [@options],
                   -rows =>15,
                  )->pack(-side=>'left');
$vsel = "Amazon";
$selectVendor->configure(-variable => \$vsel);