if ($founddex = "no")
  {
    if ($am_or_pm eq "am")
      {
        $morntime  = $formdata{'$timedata'};
        $mornread  = $formdata{'$readdata'};
        $morneaten = $formdata{'$eaten'};
        $noontime  = "N/A";
        $noonread  = "N/A";
        $nooneaten = "N/A";
      }
    else
      {
        $noontime  = $formdata{'$timedata'};
        $noonread  = $formdata{'$readdata'};
        $nooneaten = $formdata{'eaten'};
        $morntime  = "N/A";
        $mornread  = "N/A";
        $morneaten = "N/A";
      }
      $appendedrecord=$arraydate."-".$morntime."-".$moreread."-".$morneaten."-".$noontime."-".$noonread."-".$nooneaten;
    $newdex = $#workfile;
    ++$newdex;
    $workfile[$newdex] = $appendedrecord;
}