my $a[];       #=> @a := @$a
$a = [A..Z];
print "@a";    # A B C ... 
print $a[0];   # A