foreach (@{$hits}) {
  push @{$ret},join '|', 
      $_->{Hit_def},
      $_->{Hit_num},
      $_->{Hit_hsps}->{Hsp}->{Hsp_identity};
}