Assign A to Z variable or array

foreach $o (A..Z) {
$$o="$o";    #assign A..Z variables
@$o="$o";    #assign A..Z arrays
print "$$o\n";  #print variables
print "@A\n";    #print array
}

__END__
$n=0;
@a=(A..Z);
$a=@a;
while($n < $a) {
$c = $a[$n];
$c="\$$c";
print "$c\n";
$n++;
}