When running your code, I get the following error messages:

Missing right curly or square bracket at tmp.pl line 14, at end of lin
+e
syntax error at tmp.pl line 14, at EOF
Execution of tmp.pl aborted due to compilation errors (#1)
    (F) The lexer counted more opening curly or square brackets than c
+losing
    ones.  As a general rule, you'll find it's missing near the place 
+you
    were last editing.

Uncaught exception from user code:
        Missing right curly or square bracket at tmp.pl line 14, at en
+d of line
syntax error at tmp.pl line 14, at EOF
Execution of tmp.pl aborted due to compilation errors.
 at tmp.pl line 14
[download]

Maybe you want to read the error messages and correct the issues raised by them.

The code you posted produces exactly what I'd expect:

Missing right curly or square bracket at path.pl line 14, at end of li
+ne
syntax error at path.pl line 14, at EOF
Execution of path.pl aborted due to compilation errors (#1)
    (F) The lexer counted more opening curly or square brackets than c
+losing
    ones.  As a general rule, you'll find it's missing near the place 
+you
    were last editing.

Uncaught exception from user code:
        Missing right curly or square bracket at path.pl line 14, at e
+nd of line
        syntax error at path.pl line 14, at EOF
        Execution of path.pl aborted due to compilation errors.
[download]

You have been here for a while, have posted many times. Please take the time to read Tutorials -> PerlMonks for the Absolute Beginner and How do I post a question effectively?. Ensure the code you post matches the code you are actually running. You seem to be facing the same (or very similar) problems, please take the time to learn the basics:

• perlintro
• http://learn.perl.org
• http://perldoc.perl.org
• The tutorials section of this site

sorry, I missed { this flower brackets. now i updated my question.. sorryyyy