Select Code to Download

%imolecule = (
        'maxval' => [@maxval],
...
          );

push @allmolecules, %imolecule;

    for $i ( 1 .. $#allmolecules ) {
           print "$i is { ";
...
           }
            print "}\n";
    }

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