my $sth = $dbh->prepare ($query);
my $customer = '';
- my @colors = qw/blue green yellow red cyan magenta/;
+ my @colors = qw/green yellow red cyan magenta blue/;
my $color = $#colors;
if ($sth && $sth->execute > 0) {
while ((my $row = $sth->fetchrow_hashref)) {