use vars qw($foo @bar %foobar);