%Persfile = ( 1 => "$perschecked[0]1",
              2 => "$perschecked[1]2",
              3 => "$perschecked[2]3", );