use vars qw( $foo @bar );