if ($questions{"39"} eq "reading")
{
   $right++;
   
}
else
{
   $wrong++;
}

if ($questions{"40"} eq "false")
{
   $right++;
   
}
else
{