Select Code to Download

  DB<2> $a = [A..Z]

...
  DB<4> x $a[0], $a->[0]
0  'a'
1  'A'

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