use strict;
my $number=0;  float:
my $line;  float:
my $score;  float:
my $std;  float:
my $avg;  float:
my $name;  float:
my $sum;

open(IN, "pa5c.dat") || die ("Can't open file $!\n");
while($line = <IN>){
		chomp($line);
		++$number;
		$sum = $sum + $score;
		($name, $score) = split(/:/, $line);
		print "$name $score\n";
}
$avg = $sum / $number;
printf "%3.2f\n", $avg;


__END__#pa5.pl