@getuser = `dsquery user –name * -o samid –limit 1000`;
foreach (@getuser) {
  $a = $_;
  chomp $a;
  $b = (split (/”/, $a))[1];
  }
@getcert = `dsquery usern –name * -o upn –limit 1000`;
foreach (@getcert) {
  $c = $_;
  chomp $c;
  $d = (split (/”/, $c))[1];
  $e = (split (/@/, $d))[0];
  }