Select Code to Download

use strict;
use warnings;
use DBI;
...
           );
}
$sth_color_exists->finish();

my $array_ref = $dbh->selectcol_arrayref("SELECT color, 1 FROM color",
                                         { Columns => [1,2] }
...

# Now rewrite the loop above along the lines of-
#    for my $color ( sort keys %colors )