use strict;
use warnings;

my %count_seq;
while (<DATA>) { 
    chomp;
    next if /^>/;     # discard headers
    next if length($_) > 30 or length($_) < 15; # discard unwanted sizes
    $count_seq{$_}++;   # count occurrences
}
print "$_\t$count_seq{$_}\n" for keys %count_seq;

__DATA__
>dfbdbgf_356dfbdf
ATGGCTGGATATCGATT
>sdgthhr_478364df
ATGGCTATGGATCAGATT
>dfbdbgf_356dfbdf
ATGGCTATCGATT
>dfbdbgf_356dfbdg
ATGGCTGGATATCGATT
>sdgthhr_478364df
ATGGCTATGGATCGATT
>dfbdbgf_356dfbdg
ATGGCTGGATATCGATT
>sdgthhr_478364df
ATGGCTATGGATCGATT
TGCATGCGCTATTAGCG
ATGGCTATGGATCGATT
TGCATGCGCTATTAGCG
ATGGCTATGGATCGATT
TGCATGCCCTATTAGCG

##</code><code>##

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