in reply to print statement to avoid printing aline more than once

Usually I do something like this:

print "Too many fails for student $s1\n" if ! $students{$s1}++ and $avg < 50;

Arnon Weinberg Back2Front - The Web Site People

In Section Seekers of Perl Wisdom