Select Code to Download

  open (my $FALSEF, "<", "FalseFriendsList.txt");

  my %ExistingFalseFriend;    #  or
  my %existing_false_friend;  #  or
  my %Existing_False_Friend;

  my $Debug = 3;     # 0 - production, 1 - minor debugging, 2 .. 9 for
+ different levels

#while the FF input exists
while (my $line = <FALSEF> )
...
        {     print $LOG "$key\t$falsef{$key}
        }
  }