There have been other good solutions already but as soon as I see something being done 3 times I immediately want to solve the problem in a way that easily exends to the general case.

my %record;
while (<>) {
  $record{$1}=$2 if /^(\S+)\s*=\s*(\S+)/;
  if ( eof(ARGV) ) {
     print "@record{qw(Sen Acc Cor)}\n";
     %record = ();
  }
}
[download]