print @array;
--
0.0175
0.0483
0.0507
--
0.0471
0.0483
--
0.0287
--
##</code><code>##

0
0.0175"\t"0
0.0483"\t"0.0471"\t"0
0.0507"\t"0.0483"\t"0.0287"\t"0

##</code><code>##

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

##</code><code>##

"\t"0
0.0175
0.0483
0.0507
"\t"0
0.0471
0.0483
"\t"0
0.0287
"\t"0