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