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