for $i ( 1 .. $#allmolecules ) {
 ...