Select Code to Download

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

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

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