$students{$name_index}{avg_grade} /= scalar(@{ $students{$name_index}{grades} });