You can drop one arrow:

use strict;
my @baz;
my $baz = [ 1, 2, 3 ];
my $bar = { baz => $baz };
my $foo = { bar => $bar };
@baz = @{ $foo->{ bar }{ baz } };
print "@baz\n";
# 1 2 3
[download]