#!/usr/bin/perl
open(INFILE, "grades");
print("BEGIN - list \n");
print("BEGIN - counting\n");
while (<INFILE>) {
        chomp();
	split (/:/);
        $grade = $_[1] ;
        $gradelist{$grade}++ ;
}
foreach $grade (sort ( keys %gradelist )) {
	print (" $grade  ---> $gradelist{$grade} \n") ;
}
print ("END - garde list: \n");