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