perl Eval-Closure