foreach ( 0 .. $#{ $students{$name}{grades} } )
   {
      printf "%4d", $students{$name}{grades}[$_];
   }