$ perl -MData::Dumper -wE 'print Data::Dumper->Dump([[1, 2]], [q[$foo]])'
$foo = [
         1,
         2
       ];
$ perl -MData::Dumper -wE 'print Data::Dumper->Dump([[1, 2]], [q[*foo]])'
@foo = (
         1,
         2
       );
$ perl -MData::Dumper -wE 'print Data::Dumper->Dump([{ a => 2}], [q[*foo]])'
%foo = (
         'a' => 2
       );