$name = 'array';;
print @{ $name }[ 0 ];;
foo

$ref = \@array;;
print @{ $ref }[ 0 ];;
foo