or download this
my $a_user= $activeuserName;
my %AccountHash;
...
my $active_user_acct = $acct_frame->Optionmenu(-options=>[map {[$_
+->{acct_name}=>$_->{acct_id}]} @activeUserAccts], -command=>sub {},-v
+ariable=>\$activeUserAccts[0], -width=>25 )->grid(-row=>3, -column=>1
+,-sticky=>'nw');
$active_user_acct->addOptions(" ");