if (exists $credit->[$qnum]{$answer})
{
    print "Q $qnum: ", $credit->[$qnum]{$answer}, " points\n";
}
else
{
    print "wrong\n";
}