my $file = "/home/andrew/data.txt";
my @array;
open (FOO, $file) or die "can't open $file";

while (<FOO>) {
    @array = (@array, split /\s+/, $_);
};

foreach (@array) {
    print "$_\n";
};