Global symbol "$var" requires explicit package name at SUBS.pm line ...