Select Code to Download

my $median_class_avg;    #-- median class average
...
...
...
   #-- Print student's average
   printf "%5.1f%2s", $students{$name}{avg_grade};

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

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

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