use vars qw(@array);