#!/usr/bin/perl-w
use strict;
use warnings;
use open ':utf8';

open (INPUT1, "<FalseFriends.txt");
open (INPUT2, "<BilingualWordList.txt");

while (<INPUT1>)
{
	my $line = $_;
	chomp $line;
	my @words = $line;
}

while (<INPUT2>)
{
	my $line2 = $_;
	chomp $line2;
	my @words2 = $line2;
}