PERL_Tri et concaténantion

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

sub listDirectory {    
 my ($repertoire) = @_;    
 my @fichiers = ();    
 opendir (my $rep_fh, $repertoire) or die "impossible d'ouvrir le repertoire $repertoire\n";    
 my @file_rep = grep { !/^\.\.?$/ } readdir($rep_fh);    
 closedir ($rep_fh);    
 foreach my $nom (@file_rep) {   
  if (-f "$repertoire/$nom") { push (@fichiers, $nom); }    
 }   
 return @fichiers;    
}   

my $repertoire = "TON DOSSIER"; # Répertoire qui contient tes fichiers   
my @fichiers = &listDirectory($repertoire);   # Tableau avec tous tes fichiers   
my $lengthFichiers = scalar @fichiers;    # Taille du tableau   

# TRIER LE TABLEAU SELON TES PARAMETRES   

# Ecrire dans le fichier de sortie   
my $finalFile = "fichier_concat_final.txt";   
open(ECRIRE, ">$finalFile") || die ("Erreur d'ouverture de $finalFile");   

for(my $i = 0; $i < $lengthFichiers; $i++) {   
 my $currentFile = $repertoire . "/" . $fichiers[$i];   
 open(LIRE, $currentFile) || die ("Erreur d'ouverture de $currentFile");   
 while(<LIRE>) { print ECRIRE $_; }   
 close(LIRE);   
}   

close(ECRIRE);

if($fichier =~ m/A_2012_(.*)/) { OK }

sub listDirectory { 
 my ($repertoire) = @_; 
 my @fichiers = (); 
 opendir (my $rep_fh, $repertoire) or die "impossible d'ouvrir le repertoire $repertoire\n"; 
 my @file_rep = grep { !/^\.\.?$/ } readdir($rep_fh); 
 closedir ($rep_fh); 
 foreach my $nom (@file_rep) { 
  if (-f "$repertoire/$nom") {
   # Si le fichier est sous la forme A_2012_*, alors on le prend en compte
   if($nom =~ m/A_2012_(.*)/) { push (@fichiers, $nom); }
  } 
 } 
 return @fichiers; 
}

if( -f $file) { #FICHIER EXISTE } else { #FICHIER N EXISTE PAS }