sub TabulateModules{
	
	print "TabulateModules\n";
	print "=================\n";
	my $paneModules = $_[0];
	my $Index = 0;
	my $ModuleButtonReference = 0;
	if (@ModuleButtonarray){
		foreach my $array (@ModuleButtonarray){
			$array->packForget();
		}
	}
	@ModuleButtonarray = ();
	@cbvalue = ();
	
	###Debug : To remove
	@aModules = ("tt", "kl");
	unshift(@aModules, "Select all");

	foreach my $Modules (@aModules){
		$ModuleButtonReference = $paneModules->Checkbutton(
        -text     => "$Modules",
		-variable => \$cbvalue[$Index],
		-onvalue => 1,
        -offvalue => 0,
        -font => 'big',
		-foreground=>'black',
        -bg => 'DimGray',
		)->pack(-side=>'top',-anchor=>'sw' );
		$Index++;
		push(@ModuleButtonarray, $ModuleButtonReference);
	}
}