use Tk;
use Tk::Balloon;
use strict "vars";
my ($mw);   
my (%tooltip_mes, %tooltip_status_mes, %balloon_wg, %wg, @local_options, @mes_options, @sta_options, $option_res);
$mw = MainWindow->new(-title => "Simple example");
$local_options[0] = 'Option 1';
$local_options[1] = 'Option 2';
$local_options[2] = 'Option 3';
$local_options[3] = 'Option 4';

$mes_options[0] = "tooltip 1/nOption A";
$mes_options[1] = "tooltip 2/nOption B";
$mes_options[2] = "tooltip 3/nOption C";
$mes_options[3] = "tooltip 4/nOption D";
$wg{APullDown_Option} = $mw->Optionmenu(
				-textvariable     => \$option_res,
				-state	    => 'normal',
			 	-options      => [@local_options])->pack;
# line that fails
$balloon_wg{pulldown}->attach($wg{APullDown_Option}, -msg => [@mes_options]);
MainLoop;