$ perl -E'@x=qw( a b c ); $var = *x; say for @{ *$var{ARRAY} }'
a
b
c