$ perl dna_seq.pl
TGCATGCGCTATTAGCG       2
ATGGCTATGGATCAGATT      1
ATGGCTGGATATCGATT       3
ATGGCTATGGATCGATT       4
TGCATGCCCTATTAGCG       1