Running totals:
Question 1: 60
Question 2: 123
Question 3: 99

Averages:
Question 1: 4.6
Question 2: 9.5
Question 3: 7.6

##</code><code>##

my %hash; my $key; my $value;
open(ANSWERTALLY, "answertally.dat");
while(ANSWERTALLY n) {
  ($key, $value) = split(/\s=\s/);
   chomp($value);   
   $hash{$key} = $value;
   }
close(ANSWERTALLY);