#  Inputs:  $1 ... color name
#           $2 ... The color index (a new arg)
##
sub do_something_with {
    my ($color, $idx) = @_;
    # For now, just print the color prefixed with its index...
    printf " %2d.  '$color'\n", $idx;
}