Kita, when providing solutions, please wrap code in <code> tags to keep things properly formatted. Note how your square brackets got mangled into links. I presume you originally intended to write:

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

As a side note, you probably shouldn't use printf if print will do (there's no templating in your string), it seems odd that you are both concatenating and interpolating, and why use the baby carriage operator and a slice when a value would be equivalent; why not just

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