@{ $studentlist{ $name } }{ @header } = @subinfo;

and
print " $student fails in :", join( ' ', grep $studentlist{ $student }{ $_ } <= 50, @header ), "\n";
}