- Move your open statement out of the while loop
- are you writing the array into a file later??
-

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

Manav