$ cat /tmp/foo
my %foo =
('a'   => [ 'A','B' ],
 'b'   => 'B',
 'a b' => 'A B'
);

my @foo = %foo;
my $foo = \@foo;

print( "list: [@foo]\n",
       "listref deref: [@$foo]\n",
     );

__DATA__
list: [a ARRAY(0x1f12d48) a b A B b B]
listref deref: [a ARRAY(0x1f12d48) a b A B b B]