a go board in perl