sub go
{
	foreach (1..5)
	{
		&neighbors_non_edge($radiovar);
		&neighbors_corners($radiovar);
		&neighbors_edge($radiovar);
		&update_go_array();
		&print_array();
	}
}

##</code><code>##

$start_button =$top->Button(-text => "Start the Process", -foreground =>"red", -command => sub{go()});