Question programmation PERL

#!/usr/bin/perl
#
# à utiliser dans le script; les messages d'erreurs ou warnings nous peuvent aider
#
use warnings;use strict;

# on peut convenir que j veut dire jour, on evite d'écrire beaucoup
# aa pour année et mm pour mois
# en revanche on mets des commentaries pour ne pas oublier (ça sers pour la maintenace)
#
my $jsec = 0;
my $jf = "Non Ferie";
my $caldat = time() - $jsec;
# si tu n'as pas besoin que de jour, mois et année tu peux
# utiliser une tranche
# my ($j,$mm,$aa) = (localtime)[3,4,5]
#
my ($s,$m,$h,$mj,$mm,$aa,$wj,$yj,$isdst) = localtime($caldat);
#$wday=$wday; cette ligne sers à quoi?

# a eviter des noms des variables en majuscules
my $rtj=(qw(Dimanche Lundi Mardi Mercredi Jeudi Vendredi Samedi))[$wday];
my $aa += 1900;
my $mm = sprintf("%02d", $mon+1); # Convert to 2-digit 1-based $mday.
my $mj = sprintf("%02d", $mday); # Convert to 2-digit $mday.

# on va utiliser d au lieu de date
my $d1 = "$aa-$mm-$mj";

open TL, "$fichtolist"
   or die "E/S : $!\n"; # à retourné une execptions si problème avec le fichier

my @cvectolist=<TL>;
close(TL);

my @ferie = qw( 2006-01-02 2005-01-03 2006-04-14 2006-04-17
               2006-05-22 2006-06-23 2006-06-30 2006-09-04
               2006-10-09 2006-12-22 2006-12-25 2006-12-26
               2006-12-29 2007-01-01 2007-01-02 X
             ); # ce n'est pas mieux comme ça?

foreach my $jferie ( @cvectolist ) {
#print "Le jferie:$jferie et la DATE1:$DATE1\n";
   if ( $jferie eq $d1 ) {
       print "je suis dans le eq\n";# il manque quelque chose ici
       $jf = "Ferie";
       $d1 = "$year-$mon-$mday";
   }
}
__END__
ce n'est pas un code opérationnel
je me suis permit de te donner quelque conseils pour
écrire ton code

A la place d'écrire autant de my tu peux declaré les variables
en utilisant une liste

my ($var1, $var2,.....)
my (@t1, @t2,....)
my (%h1, %h2, ....)
A toi de voir.
dans ton code et ne le prends pas mal que je dit ça

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

my ($j,$m,$a) = (localtime)[3..5];
my $jf;

$a += 1900;
$m = sprintf ( "%02d", $m + 1 );
$j = sprintf ( "%02d", $j );

my $jj = "$a-$m-$j";

open FERIE, "ferie.txt"
    or die "E/S : $!\n";

while ( <FERIE> ) {
    $jf = $_  if $_ =~ /$jj/;
}
print "$jf";

while ( <FERIE> ) {
    $jf = $_  if $_ =~ /$jj/;
}
print "$jf";

while ( <FERIE> ) {
    chomp;
    $jf = $_  if $_ eq $jj;
}
print $jf,"\n";