#!/usr/bin/perl -w

use strict;
use FileHandle;

my $line;
my $sum = 0;
my $count = 0;

my $gradesfh = new FileHandle;
open($gradesfh, "<namesgrades") || die "Couldn't open namesgrades\n";

while($line = <$gradesfh>) {
	chomp($line);
	my @cols = split(/ /, $line);
	$sum += $cols[2];
	$count++;
}

my $avg = $sum / $count;

print("The average grade is $avg\n");
printf(STDOUT "The average grade is %.1f\n", $avg);