Select Code to Download

    my @choices = qw/1    2    3/;
    my @help    = qw/one  two  three/;
...
                $tag->attach ($lb, -balloonmsg => \@help);
                }
           );

    my @choices = qw/1    2    3/;
    my @help    = qw/one  two  three/;
...
                        );
                  }
              );