my @names = qw(A B C D);
for (my $i=0; $i<4; $i++) {
   @{$names[$i]} = $i;
}

use Data::Dumper;
print Dumper(\@A, \@B, \@C, \@D);