Hash et somme

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

my %data;

while (<DATA>) {
    if (/(element\d+)\s+(\d)\s+(\d)\s+(\d)/) {
        # la ligne matche et nous avons capturé les 4 données
        if (!$data{$1}) {
            # si l'élément n'est pas déjà stocké dans le hash, on crée l'entrée
            $data{$1} = [$2, $3, $4];
        } else {
            # si l'élément est déjà stocké dans le hash, on retraite les données
            $data{$1} = [ 
                $2 + $data{$1}[0] == 2 ? 1 : $2 + $data{$1}[0],
                $3 + $data{$1}[1] == 2 ? 1 : $3 + $data{$1}[1],
                $4 + $data{$1}[2] == 2 ? 1 : $4 + $data{$1}[2]
            ];
        }
    }
}

# affichage ordonné par clef
foreach my $elem (sort keys %data) {
    print "$elem\t$data{$elem}[0]\t$data{$elem}[1]\t$data{$elem}[2]\n";
}

__END__
element1    1   0   1
element2    0   1   1
element3    1   1   0
element1    0   0   1

$ perl 36867025.pl
element1 1 0 1
element2 0 1 1
element3 1 1 0

open my $fh, '<', $fichier or die "Impossible de lire le fichier $fichier\n";

my %data;
my $i=0;
my $j=0;

while(my $ligne = <$fh>){
	$i++;
	chomp $ligne;
	if($ligne =~ /gene.*/){
		$j++;
		my ($gene,$champ1,$champ2,$champ3) = split "\t", $ligne;
		my $element =$champ1."\t".$champ2."\t".$champ3;
		push @{$data{$gene}}, [$element];
	}
}
for my $id (keys %data) {
	my @array = @{$data{$id}};
	$data{$id} = \@array;
}
#print Dumper \%data; 

for my $id (keys %data) {
	print "--$id\n";
	my @tableau=();
	my @array = @{$data{$id}};

	my @sums;
	for my $pair (@array) {	
		print ("\t$pair->[0]\n");

		#faire la somme de chaque colonne quand la somme est égale à 2 remplacer par 1 
		my @nums = split("\t",$pair->[0]);
		my $o = 0;
		foreach my $num (@nums){
			$sums[$o] += $num;
			$o += 1;
		}
	}
	print"=>\t";
	foreach my $sum (@sums){
		print("$sum\t");
	}
	print"\n";
}