my @namen = ({-name => 'Name1', -value => '1'},{-name => 'Name2', -value => '2'});

my $jcb = $mw->JComboBox(
-choices => \@namen)->pack();