Perl 5.12 added the capability for each to return the index and value of an array in list context.

If you need to know the index and are using an increment of 1 then:

for my $index (0 .. $#$mysql) {
[download]

is much better than the C for loop variant. About the only time a C loop is likely to be used in Perl is when the "increment" is not 1 or the termination condition is not simply reaching an end point, although there are often better ways of achieving both objectives than using a C for loop.

Update: $#$mysql per eyepopslikeamosquito's catch

for my $index (0 .. $#mysql) {
[download]

Of course, that should read:

for my $index ( 0..$#$mysql ) {
[download]