/^Sen = (\S+).*/;
$sen = $1;
/^Acc = (\S+).*/;
$acc = $1;
/^Cor = (\S+).*/;
$cor = $1

##</code><code>##

$sen = $1 if /^Sen = (\S+).*/;
$acc = $1 if /^Acc = (\S+).*/;
$cor = $1 if /^Cor = (\S+).*/;

push @array, $sen, $acc, $cor;