Help for this page
{ my $i; foreach (@array) { do_something_with($item, $i++); }}
printf " %2d. '$color'\n", $idx;
printf " %2d. '%s'\n", $idx, $color;