23       $o{$header} = "$seq";

     27     print "$line";
     28     $header = "$line";

     33     $seq .= "$line";