my %entry;
my $lentry ='L'.$count;
$entry{$lentry}= $W->Label(...