Select Code to Download

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

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