Atom charge

Hi everyone,

I want to print every atom's charge of a molecular,but only print 500 atoms' and the molecular have 602 atoms all. Why this happened?Thanks.

my \$doc = \$Documents{"3D Atomistic.xsd"};

foreach my \$atom (@{\$doc->Atoms}){

printf "Charge on atom %s = %.2f  ", \$atom->Name, \$atom->Charge;

}

/Jordon