Variable "$tar" will not stay shared at web_admin.pl line 394.

Well, perldiag says this:

           (W) An inner (nested) named subroutine is referencing
           a lexical variable defined in an outer subroutine.

           When the inner subroutine is called, it will probably
           see the value of the outer subroutine's variable as it
           was before and during the *first* call to the outer
           subroutine; in this case, after the first call to the
           outer subroutine is complete, the inner and outer
           subroutines will no longer share a common value for
           the variable.  In other words, the variable will no
           longer be shared.

           Furthermore, if the outer subroutine is anonymous and
           references a lexical variable outside itself, then the
           outer and inner subroutines will never share the given
           variable.

           This problem can usually be solved by making the inner
           subroutine anonymous, using the sub {} syntax.  When
           inner anonymous subs that reference variables in outer
           subroutines are called or referenced, they are
           automatically rebound to the current values of such
           variables.
[download]

And if you don't want to process all that, the simplest explanation is that Perl isn't Pascal, and doesn't really support "nested subroutines", so stop doing that.

-- Randal L. Schwartz, Perl hacker