Main( @ARGV );
exit( 0 );
sub Main {
    my $lessons = DatabaseOperations( 'ro', 'sham', 'bo' );
    my $myframe = MyFrame->new( $lessons );
    ...
    $simpleapp->MainLoop;
}

## FetchLessons??
sub DatabaseOperations {
   my( $ro, $sham, $bo ) = @_;
   my $dsn = "dbi:mysql:$ro";
   my $dbh = DBI->connect( $dsn, $sham, $bo ) ...
   ...
   return \@lessonsimplename;
}
sub MyFrame::new {
## NO LONGER USING "fake" GLOBAL VARIABLE @lessonsimplename
    my( $lessonsimplename ) = @_; 
...
    my $combobox1 = Wx::ComboBox->new( $panel,
                                      -1,
                                      $lessonsimplename->[0],
                                      [50, 110],
                                      [-1, -1],
                                      $lessonsimplename,
                                      0,
...