Select Code to Download

my @items;
for my $text ( qw( one two three four five six seven eight nine ten ) 
+) {
...
            } 
        );
}

my @items;
InitializeList();
...
            ...
    }
}

sub BindButton1 {
}
sub BindDouble1 {
}