open FILE, "+>", "input.txt" or die $!;
print "file loaded \n";
while (<FILE>) 
	{@all_words = split('', $_);
	push @all_words, @words; }