for($i=0;$i<$size;$i++)
{
if ($size <= 10) 
  {
	use integer;
	my $val = $hash{dataParams}->{$keys[$i]}->{val};
	my $lentry ='L'.$count;
	my $$lentry = $W->Label(
			-text => "$keys[$i]".":  $val    ",
 			-width => 20,
			-background => 'white',
			-foreground => 'black');

			Tk::grid($$lentry,
				-row => $i,
				-column => 0,
				-sticky => 'w',
				-padx => 10,
				-pady => 10,
				);
			my $closeButton = $W->Button(
			-text          => 'close',
			-command => [\&exit],
			-width  =>  7,
			-height =>  1,
    			);
			my $brow = $size + 1;
			Tk::grid($closeButton,
				-row => $brow,
				-column => 0,
				-sticky => 'w',
				-padx => 10,
				-pady => 10,
				);
	
  }