8queen problem in perl