open (OUTPUT1, ">FF.txt");
open (OUTPUT2, ">Unmatched.txt");

	for (my $falsefriend = 0; $ falsefriend <= $#words; $ falsefriend ++)
	{
		for (my $bilingualword = 0; $ bilingualword <= $#words; $ bilingualword++)
		{
			if ($falsefriend eq $ bilingualword)
			{
				print OUTPUT1 “$falsefriend"\n";
			}
			else
{
				print OUTPUT2 "$bilingualword\n";
			}
		}
	}