note
Laurent_R
Perhaps something like this (still untested):
<c>
my @max_i;
my $max = $arrayh[0];
for my $i (0..$#arrayh) {
if ($arrayh[$i] > $max) {
$max = $arrayh[$i];
@max_i = ($i);
} elsif ($arrayh[$i] == $max) {
push @max_i, $i;
}
}
print " Max values are: \n"
print "- $wire[$_]\n" for @max_i;
</c>
1232659
1232704