my @grades = $students{$name}{grades};
  foreach my $grade (@grades) {
    printf "%4d", $grade;
  }