use vars qw(@some $vars %in_here);
# or you can do
my %variable;
# or even
local $some_var;