$ok = $form[$i] =~ /$ans[$i]/;  # e.g. $ans[5] is "A"
$points += 0.5 if $ok;