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