Just a quick note, you need an error trapping routine in the shop sub to ensure people don't type anything other than 1..3, and maybe add a "leave shop, don't buy anything" option. Oh, and the ubiquitous "use strict;" & warnings should be added ;)

Update: minor modified code: see my scratchpad, not meaning to tread on Limbic~Region's toes but I've fixed a couple of immediate problems and given you some clues as to furthering your code with a couple of minor error traps in the same style that you wrote the original programme. I had a tad of free time so had some fun as you suggested. I would have fixed other areas but time is fleeting... Thanks for posting it, I did have fun :-)

P.S. Limbic~Region will do a much better job I'm sure. :-)