open (my $fh, "<", $ARGV[0]) or die "Can't open input file!";
my @words;
while (<>) {
	push(@words, $_);
}