Problème avec mon programme perl

#!usr/bin/perl
use strict;
use warnings;

my $rep;
my $rep2;
my $rep3;
my $mot_langue;
my $mot_fr;
my $mot_ang;
my $trad_ang;
my $trad_fr;
my $texte_langue;
my $texte_fr;
my $trouve;
my $ajout2;
my $nomfich;
my $fictexte_fr;
my $ficdico_fr1;
my $ligne;
my $ligne2;
my $ligne3;
my $nomfich1;
my $dico_fr1;
my $ligne1;
my $dico_ang1;
my $ficdico_ang1;
my $nomfich2;
my $ajout1;
my $dico_ajoutang;
my $nomfich3;
my $ajout3;
my $fictexte_ang;
my $texte_ang;
my $nomfich4;
my $longueur1;
my $i;
my $mot1;


$trouve=0;

$nomfich=shift;
$nomfich1=shift;
$nomfich2=shift;
$nomfich3=shift;
$nomfich4=shift;


print ("Voulez-vous traduire un mot, O ou N ?");
$rep=<STDIN>;
chomp $rep;


if ($rep eq "O") {
	
	print ("Voulez-vous traduire un mot francais en anglais, 0 ou N ?");
	$rep2=<STDIN>;
	chomp $rep2;
	
	
	
	if ($rep2 eq "O") {
		print ("**********Dictionnaire francais anglais**********\n");
		print ("tapez le mot francais a traduire \n");
		$mot_fr=<STDIN>;
		chomp $mot_fr;
		
		open $ficdico_fr1,'<',"dico_fr1.txt" or die "fichier non ouvert!\n";
		while ($ligne=<$ficdico_fr1>) {
			if ($ligne=~/^$mot_fr /) {
				print ("$ligne\n");
				$trouve=1;
}
			
						
					else {
						
						if ($trouve==0) {
						open $ficdico_fr1,'>>',"dico_fr1.txt" or die "fichier non ouvert!\n";
						$ajout1="\n$mot_fr";
						print $ficdico_fr1 $ajout1;
						close $ficdico_fr1;
						open $ficdico_fr1,'<',"dico_fr1.txt" or die "fichier non ouvert!\n";
						print " ";
						
						$trouve=1;

}
}
}	 	
}

	else {
		if ($rep2 eq "N") {
			print ("**********Dictionnaire anglais francais**********\n");
			print ("tapez le mot anglais a traduire \n");
			$mot_ang=<STDIN>;
			chomp $mot_ang;
			
			open $ficdico_ang1,'<',"dico_ang1.txt" or die "fichier non ouvert!\n";
			while ($ligne1=<$ficdico_ang1>) {
				if ($ligne1=~/^$mot_ang /) {
					print ("$ligne1\n");
					
}
			
				}		
	
	}	
}	
}

else {
	if ($rep eq "N") {
		
		print ("Voulez-vous traduire un texte francais, O ou N ?\n");
		$rep3=<STDIN>;
		chomp $rep3;
		
		if ($rep3 eq "O") {
		
			print ("tapez le texte francais a traduire\n");
			$texte_fr=<STDIN>;
			chomp $texte_fr;
	
			open $fictexte_fr,'>>',"texte_fr.txt" or die "fichier non ouvert!\n";
			$ajout2="\n$texte_fr";
			print $fictexte_fr $ajout2;
			close $fictexte_fr;
			open $fictexte_fr,'<',"texte_fr.txt" or die "fichier non ouvert!\n";
			print " ";


			$longueur1=length($texte_fr);
$i=0;
$mot1="";

			while ($i<$longueur1){
				if (substr($texte_fr,$i,1) ne " ") {
		 		$mot1=$mot1.substr($texte_fr,$i,1);
}

		 	else {
			 
				print ("$mot1\n");
			 	$mot1="";
			 
}
			 if ($i==$longueur1-1) {
				print ( "$mot1\n");
				 
}
				 $i=$i+1;
				 
}


 
}	

		else {
			if ($rep3 eq "N") {
				
				print ("tapez le texte anglais a traduire\n");
				$texte_ang=<STDIN>;
				chomp $texte_ang;
				
				open $fictexte_ang,'>>',"texte_ang.txt" or die "fichier non ouvert!\n";
				$ajout3="\n$texte_ang";
				print $fictexte_ang $ajout3;
				close $fictexte_ang;
				open $fictexte_ang,'<',"texte_ang.txt" or die "fichier non ouvert!\n";
				print " ";

				while ($ligne3=<$fictexte_ang>) {
				print $ligne3;
	
}
}
}					
}
}