my $file = "sequences.fasta";
open (READ, "$file") || die "Cannot open $file: $!.\n";

my %seqs = ();
my $header = '';

while (my $line = <READ>){
	chomp $line;
	$line =~ s/^\s*$//;
	if ($line =~ m/^>.*$/){
		$line = $header;
	} else {
		$seqs{"$header"} .= $line;
	}
}
close (READ);

my @count_seq = keys %seqs;
foreach (@count_seq){
	print $_, "\n", $seqs{$_}, "\n";
}