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);