Help for this page
#!/usr/bin/perl -w use strict; ... } return @pairs; }
base is ATCGGTAC pairs are AT TC CG GG GT TA AC