If you want someone to write code for you, you need a much better specification, and some cash to pay with. If you want help debugging your code, you need to show your trimmed-down code along with the error messages, and some sample input and output.

Some suggestions to get you started:

Start with use strict; use warnings;, and fix any problems they identify.

Also, use Data::Dumper; and then print Dumper $parameters; throughout your code. See what exactly is happening to your data structure at each point in the code, and you will be able to find where things start going wrong.