my @array= ('1', '2','123');

my $box1 = $Screen->JComboBox( ... , -choices= \@array );
my $box2 = $Screen->JComboBox( ... , -choices= \@array );