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;
[download]