Forum Programmation.perl spliter un fichier

Je dois code Perl qui split un fichier; Malheureusement, il ne remplit pas ma tâche. Je veux qu'il me retourne les colonnes avec "fault" en dessus en voici un exemple de fichier

------------------------------------DATA.csv-----------------------------------------------

                2015.07.23  16:47:23
                              false,    false,       true,      false,    true,    false,
                      defau,  ame_a,    ame_m,       ame_uc,     ame_f,    ams_l,  en_affi,
                true  DPA01,  fault,    fault,       fault,      fault,    fault,      1,
                false DPA02,       ,         ,            ,           ,    fault,      1,
                false DPA03,  fault,    fault,         olt,      fault,    fault,      1,
                false DPA01,  fault,       at,       fault,          2,    fault,      1,

jaimerai au finisch qu#il me revoi ceci

-------------------------------ame_a--------------------------------------
    ame_a,   
    fault,    
         ,     
    fault,    
    fault,

--------------------------------ame_m----------------------------------------
    ame_m,   
    fault,    
         ,     
    fault,    
       at,    

--------------------------------ame_f------------------------------------------
    ams_l,   
    fault,    
         ,     
    fault,    
        2,
---------------------------------en_affi----------------------------------------
    en_affi,   
          1,    
          1,     
          1,    
          1,

voici mon code lui il ne peut que spliter le fichier sans faire de tri, peut etres quelqu'un ici pourrai me venir en aide.

use strict;
use feature qw(say);
use autodie qw(:all);

open(DATA, '<', 'DATA.csv');
scalar <DATA>;
my @header = split /\s*,\s*/, <DATA>;
chomp $header[-1];
my @outputFHs;

for (1..@header-1) {
    open $outputFHs[$_], ">", "file$_";
    say {$outputFHs[$_]} "$header[$_]:";
}

while (<DATA>) {
    chomp;
    next unless length;
    my @cols = split /\s*,\s*/;
    for my $colNo (1..@header-1) {
        say {$outputFHs[$colNo]} "$cols[0] : $cols[$colNo]";
    }
}