"Perl script is getting stuck for no reason"

Unlikely. Since you refuse to show the code in question or create an example which replicates your issue (see How do I post a question effectively?) I suggest you learn to profile and debug your code. Tutorials->Debugging and Optimization/Basic debugging checklist. Devel::NYTProf.

Update: added link.

Update 2: Please mark your posts as updated, this can't be your code, it doesn't even run. Ensure you don't miss parts when copy/pasting.