small game for traning programming in perl