for ($x=0; $x<3; $x++) {

	@perschecked[$x] = $Persfile$x;

}