while($fh != -1)
  {
   $sequence = stream->next_seq
   @sequences = $sequence;
  }