>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)