@array = ('a'..'z');
print $_,$/ for @array;

##</code><code>##

printf "%02d: %s\n", $_+1, $array[$_] for 0..$#array;

##</code><code>##

$ perl -MO=Deparse foo.pl
@array = ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j',
'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 
'w', 'x', 'y', 'z');
foreach $_ (@array) {
    print $_, $/;
}
foreach $_ (0 .. $#array) {
    printf "%02d: %s\n", $_ + 1, $array[$_];
}
foo.pl syntax OK