use vars qw($var1 @array2};