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

##</code><code>##

require vars;
vars->import('$foo','@bar','%foobar');

##</code><code>##

use vars '$foo';
use vars '@bar';
use vars '%foobar';