Did you see any warnings? Warnings help you spot problematic points in your code.

Perl does not compare strings for equality using ==. Maybe you want to use eq?

Perl does not use + to concatenate strings. Maybe you want to use . ?