for $i ( 1 .. $#allmolecules ) {
   		print "$i is { ";
   		for $field ( keys %{ $allmolecules[$i] } ) { #line 222
       		 	if (ref($allmolecules[$i]{$field}) eq "ARRAY")
			      {	 print "$field=@{$allmolecules[$i]{$field}}"; }
			      else
			      {	print "$field=$allmolecules[$i]{$field}"; }
   		}
   	 	print "}\n";
	}