perl -e'
   use strict;
   @foo = 123;
   print "ok\n";
'
Global symbol "@foo" requires explicit package name at -e line 3.
Execution of -e aborted due to compilation errors.

$ perl -e'
   use strict;
   use vars qw( @foo );
   @foo = 123;
   print "ok\n";
'
ok

##</code><code>##

use Data::Dumper qw( Dumper );
local $Data::Dumper::Useqq = 1;
local $Data::Dumper::Sortkeys = 1;
print(Dumper($data));