my %hash;
my $profile;
my $grade;
my $key;
my $value;

open INPUT, "<input.doc or die "Couldn't open!";
LINE: while (<INPUT>) {
    if (/profile (\w+)/) {
        my $grade = $1;
        next LINE;
    }
    elseif ($_ eq 'END') {
        $hash{$grade} = $profile;
        undef $grade, $profile;
    }
    ($key,$value) = split;
    $$profile{$key} = $value;
}
close INPUT;