%imolecule = (
		'maxval' => [@maxval],
		'minval' => [@minval],
		'range' => [@mp],
		'label' => $molcount,
		'peers' => '0',
	      );

push @allmolecules, %imolecule;

##</code><code>##

	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";
	}

##</code><code>##

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