for(my $i=0; $i < @arrayh; $i++) 
  {
    my $max = max @arrayh;
    my $add = 1;
    print @arrayh,"\n";
    print @wire;
    print $i+1, ". Hardest to control to logic 0 is at $wire[$i] with value $max \n";
  }