for my $line (@lines) {
    my @tmp=split ' ', $line;
    push @words, $tmp[0];
}

##</code><code>##

push @words, (split)[0] for @lines;

##</code><code>##

@words=map +(split)[0], @lines;

##</code><code>##

use strict;  # along with
use warnings;

##</code><code>##

my @array = ();