OK, then Perl doesn't complain because you have global variables with the same names.
Please see other comments as well. Your return() is most likely misplaced.

--perlplexer