Playing around with a sokoban solver in perl