Are you trying to do something like this?

use strict;
use warnings;

my @letters = ("A".."D");



for (my $i=0; $i<@letters; $i++)
{
    print "$i = $letters[$i]\n";
}
[download]

prints:

0 = A
1 = B
2 = C
3 = D
[download]