printf $parr[$tmp1]." - $i= @{ [ @PC1[$i] ] } tmp1=$tmp1\n";

##</code><code>##

print "$parr[$tmp1] - $i= $PC1[$i] tmp1=$tmp1\n";