my $file = '/path/to/file';
my @words;
open my $fh, '<', $file or die "Could not open $file: $!";
while(<$fh>){
    push @words, split;
}
close $fh or die $!;