@arr=('A', 'B', 'C', 'D', 'E', 'F', 'G');

##</code><code>##

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

##</code><code>##

for(my $i=0; $i<=$#arr; $i++)
{print"$i $arr[$i]\n\n";}