The short answer to your question is to use symbolic references:

$perschecked[$_] = ${Persfile . $_} for (0 .. 2);
[download]

First of all, notice I changed @perschecked[$x] to $perschecked[$_], I assume this is just a typo, but I brought it up just in case.

The long answer is not to use symbolic references, because if you use -w, then it will be flagged as an error. The best option is to redisign your data-structure, of course if you can't do this then symbolic references may be needed, and you would have to localize $^W to allow symbolic references.

The 15 year old, freshman programmer,
Stephen Rawls