my $median_class_avg;    #-- median class average
...
#-- Open the input file 
open(INPUT, '<', $input_file) or die "Couldn't open $input_file: $!\n";
...
   #-- Print student's average
   printf "%5.1f%2s", $students{$name}{avg_grade};