Well, you posted some code ... which you didn't say was pseudocode ... which isn't written to cope with scoping ... three programs pasted into one file , no indentation ...

All I was trying to say is read these tutorials and learn from them, learn about scoping, learn about perls memory management...

But as you said, its pseudocode , so... well, I really don't have anything more specific to add

Have a nice day , I wish you all the best