# assume %questions is populated.
my %answers = {
  ...
  q39 => 'reading',
  q40 => 'false',
};

foreach my $num ( keys %answers ) {
  if ( defined($questions{$num})
       and $questions{$num} eq $answers{$num}) {
    $right++;
  } else {
    $wrong++;
  }
}