open(OUT,"> TEST") or die($!: can't open output file") ;
while(<DATA>) {
push @array,$2 if (/^(Sen|Acc|Cor) = (\S+)/) ;
}
local $"="\n" ;
print "@array" ;