@vars = ("a1", "b2", "c3");
$opt = $w1->Optionmenu(-options=>\@vars, 
-variable=>\$tvars -command=> sub { print "got : ", shift, "\n"})->pack;

##</code><code>##

Tk::Error: Odd number of args to Tk::Optionmenu->new(...)