{ my $i;
foreach (@array) {
    do_something_with($item, $i++);
}}

##</code><code>##

printf " %2d.  '$color'\n", $idx;

##</code><code>##

printf " %2d.  '%s'\n", $idx, $color;