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