my @k = keys %$monomer_ref;
my @v = values %$monomer_ref;