for my $q1 (keys %test) {
  for my $a1 (0..$#$answers{$q1}){ 
   if ($test{$q1} eq $answers{$q1}[$a1]{
  $grade++;
}
}