If you're just discarding the Sen = part of each line, you can simplify this to:

while (<>) {
    my ($foo) = /= (\S+)/;
    push @array, $foo; 
}
[download]

Unless there's more to this problem...