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