use Tk;

$MainWindow = MainWindow->new;
        $MainWindow->geometry("420x420");
	$MainWindow->configure(-background => "black");  

$m = 0;
$bfa = 0;
my $vary = 0;
my $varx = 0;
my $n=0;

$MainWindow->Button(-font => "Ariel 8 bold", -relief => 'groove', -text => "click", -width => 14, -height => 0, -command => \&dude)->place( -x => 200, -y => 385);

sub dude
{
	foreach $WidgetDestroy(@ButtFunc)
	{
		if (defined ($ButtFunc[$n]))	
		{
			$WidgetDestroy->destroy;
		}	
		if (undef ($ButtFunc[$n]))
		{
			print "hello";
		}	
		++$n;
	}

		for (my $i=0;$i<6;$i++)
		{	
			my $varx = 0;

			for (my $j=0; $j<7; $j++)
			{	
				$ButtFunc[$bfa] = $MainWindow->Button(-font => "Ariel 8 bold", -relief => 'groove',-background => 'white', -text => $montharr[$m], -width => 15, -height => 2, -command => [ \&OpenTab, $Jularr[$m]])->place( -x => $varx, -y => $vary);
				$varx = $varx + 98;
				++$m;
				++$bfa;	
			}
			$vary = $vary + 43;
		}
}
 
 MainLoop;