use vars qw($FOO %BAR @ZOT);