added perl_sequence_dialgam.