Have you looked at the values of $tmp1? Most likely, $tmp1 gets a value larger than the number of elements of @parr, and that's why you get the warning.

Update:

I found the following line instructive:

  printf "%d: %d -> %s\n", $i, $tmp1, $parr[$tmp1];
[download]