use vars qw(@array %hash $scalar);