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

$ perl -MO=Deparse foo
use vars ('$foo', '$bar');
foo syntax OK