Thanks jwkrahm .... can u plz explain the following lines

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

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