## create an anonymous block to limit the scope of the package
{
  package globtut;

  $var = "a string";
  @var  = qw( a list of strings );

  sub var { }
}

use Data::Dumper;

print Dumper(\%globtut::);

__output__

$VAR1 = { 
          'var' => *globtut::var
        };