..
..
..
Sen = x
Acc = y
Cor = z
..

##</code><code>##

x1 y1 z1
x2 y2 z2
etc

##</code><code>##

while (<>) {   # process list of files
open (OUT, ">TEST");
chomp;
/^Sen = (\S+).*/;
/^Acc = (\S+).*/;
/^Cor = (\S+).*/;

push @array, "$1", "$2", "$3";

     }