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