# get Discontinued
my $sql = qq!SELECT DISTINCT("Discontinued") AS disc 
             FROM "Products" ORDER BY 1 DESC !;
my $dr = $dbh->selectall_arrayref($sql);

# Make up a pulldown menu for Discontinued 
my $discs = qq!<option value="">Select option</option>!;
for my $row (@$dr) {
  $discs .= qq!<option value="$row->[0]">$row->[0]</option>\n!;
}