my %HASHDATAFROMLIBRARYFILE = MONKEY::MONKS($libraryFile);

# FIRST ENTER BOX
printf ("%-20s" , "Enter Animal : ");
print '<select name="CellName" onChange="document.asdf.submit();">';
foreach $keys (sort keys %{$HASHDATAFROMLIBRARYFILE{TIMING}})
{
   print '<option value="' . $keys  . '">' . $keys . '</option>' if ($FORM{CellName} ne $keys);
   print '<option value="' . $keys . '" selected >' . $keys . '</option>' if ($FORM{CellName} eq $keys);
}
print '</select><br></br>';