The whole "code" you posted is broken, every single line is wrong.

Please at least test before posting and spare us from guessing what some pseudo code is supposed to mean.

Please learn how to use Data::Dumper to check your data structures.