http://qs321.pair.com?node_id=139566


in reply to using strict and functions

You can localize them to the functions (the 'BEGIN' is so that any initializations to the variables get done no matter where you place these functions in the program):
BEGIN { my ($var1, $var2) = ("this", "that"); sub sub1 { # use $var1, $var2 } sub sub2 { # use $var1, $var2 } }
Update: It's hard to tell what you really want or need from your description, so its a good thing there are lots of good answers here..