#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use Gtk2 -init;

my $mw = Gtk2::Window->new();
$mw->signal_connect( 'delete_event' => sub { Gtk2->main_quit; } );

my $cb = Gtk2::ComboBox->new_text();

my @items = qw( AAA BBB CCC );

foreach ( @items ) {
   
      $cb->append_text( $_ );
         
}

$mw->add( $cb );
$mw->show_all;
   
Gtk2->main();