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