Could someone give me suggestions with my code?

Hello, all. I'm re-learning perl (again), and have put myself into a while loop which i've just broken out of ( while $problemSolved != 1 {thinkOfSolution ();trySolution();} ), I'd like to post my code, complete with example data, for you to look over, and give some suggestions on how to improve my style.