while(<$fh>){
  my $id = '';
  chomp;
  if ($_ =~ /^>(.+)/){
    $id = $1;
  } else {
    $id2seq{$id} .= $_;
  }
}