use vars qw(@array %hash $scalar);

##</code><code>##

use vars ('@array', '%hash', '$scalar');