for $field ( keys %{ $allmolecules[$i] } ) {