Select Code to Download

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

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

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