{
my @array = 'element';
}
$ref = \@array;
print "$ref\n";

##</code><code>##

>perl -E"say *array{ARRAY}||0;"
0

>perl -E"say *array{ARRAY}||0; @array; say *array{ARRAY}||0;"
ARRAY(0x182a24c)
ARRAY(0x182a24c)

>perl -E"say *array{ARRAY}||0; @{'array'}; say *array{ARRAY}||0;"
0
ARRAY(0x238b24)