my $fileAverage = join "", @array;
$fileAverage =~ s/--\n/--0\n/g;
my (@matrix) = split('--', $fileAverage);
foreach my $lane (@matrix) {print "\t$lane";
}