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