#! perl -sw
use strict;

my (@aboveC, @cOrLess);

while (<DATA>) {
	# $1 := name, $2 := grade
	m/^(\w+)\s+([a-f][+-]?)$/i;

	# if the grade is one of these
	0<= index('A+ A A- B+ B B- C+', uc($2), 0 )
		# add name here    if not add name here
		? $aboveC[@aboveC] : $cOrLess[@cOrLess] = $1;
}

print "Above C   students: @aboveC\n";
print "C or Less students: @cOrLess\n";

__DATA__
homer	f
bart	d-
marge	c+
lisa	a