[perl] données qui n'est pas prise en compte

if ( condition1) {
  traitement...
}
elsif (condition2){
  traitement...
}
else {
  que ce passe-t-il si les conditions 1 ou 2 ne sont pas traitées
}

#! /usr/bin/perl

use warnings;use strict;

my @pair = qw/2 4/;
my @impair = qw/1 3/;
my (@res1,@res2);

foreach my $val  (0..6){
  print "====Debut FOREACH====\n";
   if (grep { /$val/ } @pair){
        print "Debut IF1\n";
        push @res1,$val;
        print "\@res1 : @res1 pair\n";
        print "Fin IF1\n";
   }
   elsif (grep { /$val/ } @impair){
        print "Debut IF2\n";
        push @res2,$val;
        print "\@res2 : @res2  impair\n";
        print "Fin IF2\n";
   }
   else {
        print "$val est hors limite!\n";
        }
        print "----Fin foreach-----\n";
}

[root@localhost ~]# perl paire_impaire.pl
====Debut FOREACH====
0 est hors limite!
----Fin foreach-----
====Debut FOREACH====
Debut IF2
@res2 : 1  impair
Fin IF2
----Fin foreach-----
====Debut FOREACH====
Debut IF1
@res1 : 2 pair
Fin IF1
----Fin foreach-----
====Debut FOREACH====
Debut IF2
@res2 : 1 3  impair
Fin IF2
----Fin foreach-----
====Debut FOREACH====
Debut IF1
@res1 : 2 4 pair
Fin IF1
----Fin foreach-----
====Debut FOREACH====
5 est hors limite!
----Fin foreach-----
====Debut FOREACH====
6 est hors limite!
----Fin foreach-----
[root@localhost ~]#

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

die "Usage : script syn_fr syn_all traduc_dierct resultat\n" 
    if @ARGV != 4; 

my $syn = "./" . pop @ARGV; 

my $trad_direct="./" . pop @ARGV;
my $dico_all="./" . pop @ARGV;
my $dico_fr="./" . pop @ARGV;

my %ved_syn_fr;
my %ved_syn_all;
my @ved_direct_fr_all;
my @res=();
my @res2=();
my @resultat;

open(DICO_FR,$dico_fr) || die ("Le fichier n'existe pas\n") ;
while(<DICO_FR>){
    my($verbe2,$liste_synonyme2) = split /:/,$_;
    $ved_syn_fr{$verbe2} = $liste_synonyme2;
}
close(DICO_FR); 
my @vedette_fr = keys %ved_syn_fr;


open(DICO_ALL,$dico_all) || die ("Le fichier n'existe pas\n") ;
while(<DICO_ALL>){
    my ($verbe,$liste_synonyme)=split /:/,$_;
    $ved_syn_all{$verbe}=$liste_synonyme;
    #push @{$ved_syn_all{$verbe}},split /,/,$liste_synonyme;
}
close(DICO_ALL);
my @vedette_all = keys %ved_syn_all;


open(TRAD,$trad_direct) || die ("Le fichier n'existe pas\n");
while(<TRAD>){
    my ($verbe, $liste)=split /:/,$_;
    my @eeee= split /,/,$liste;
    if(grep { /$verbe/ } @vedette_fr){
	foreach  my $var (@eeee){
	    print("\n$verbe   ,    $var\n");
	    if((grep { /$var/ } @vedette_all) && (not($var eq ' ') )){
		push(@res,$ved_syn_fr{$verbe});
		push(@res2,$ved_syn_all{$var});
		push(@resultat,$verbe,",",$var,":",@res,",",@res2);
		@res=();	
		@res2=();				
	    }
	}
	
    }
}
close(TRAD);     
   
open SYN,">$syn" or die "E/S : $!"; 
print SYN @resultat and close SYN;