perl module variable scope question