foreach $PTnum (keys $leakHigh){
foreach $pin (keys %{leakHigh{$PTnum}}){
foreach $i (0 ..$#{leakHigh{$PTnum}{$pin}}){
print "$leakHigh{$PTnum}{$pin}[$i]";
}}}