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