for my $i(@array)
 {
    @var=split('=',$i);
    my $frame=$mw->Frame()->pack();
    my $label_index=$frame->Label(-text=>"$x",-width=>10,-relief=>'groove')->pack(-side=>"left");
    my $label_name=$frame->Label(-text=>"$var[0]",-width=>30,-relief=>'groove')->pack(-side=>"left");
    my $label_value=$frame->Label(-text=>"$var[1]",-width=>25,-relief=>'groove')->pack(-side=>"left");
    my $label_description=$frame->Entry(-text=>"description",-width=>30,-relief=>'groove')->pack(-side=>"left");
			
    $x=$x+1;	
			
 }