open (OUT,">Test")|| die;
while (<>){
 /^Sen = (\S+)/ && do {$sen=$1};
 /^Acc = (\S+)/ && do {$acc=$1};
 /^Cor = (\S+)/ && do {$cor=$1;
   push @array,$sen,$acc,$cor;
   $sen=$acc=$cor=undef;
 };
}'