use vars qw[ $var1 @var2 ];