my $seq_name;
my %seqs_hash;
while (my $line = <SEQS>) {
  chomp $line;
  if ($line =~ m/\>\s*(.+)$/) {
    $seq_name = $1;
  } else {
    $line =~ s/\s//g;
    $seqs_hash{$seq_name} .= $line;
  }
}