foreach my $key ("a" , "b" , "c") {
    $lb -> insert( 'end', $key );
}
$lb->activate ( 0 ) ;
$lb->selectionSet ( 0 ) ;
$lb->focus();