use Data::Dumper;

use strict;
use warnings;

open FILE, "a.txt";
undef $/;
$_ = <FILE>;
close(FILE);
my @words = split;

print Dumper(\@words);