add scope-of-variables-in-perl