#! /usr/bin/perl 
open(FILE,"<input.txt");
print "file loaded \n";
my @lines=<FILE>;
close(FILE);
my @all_words;
foreach my $line(@lines) {
@temp_arr=split('\s',$line);
push(@all_words,@temp_arr);
}
print "@all_words\n";