foreach my $key (@keys)
	  {	
	     $cells{$row.$i}=$mwwidgets{"sc_list"}->Label(-textvariable=>\$info{$key.$row},-relief=>"ridge",-width=>15)->grid(-row=>$row,-column=>$i)->bind('<Double-Button-1>',sub{profile_window($currentrow)});
		 print $cells{$row.$i};
		 #$cells{10}->configure(-text=>"bla");
                   last if ($i==7);
		 $i++;
		 
	  }
           $row++;