my %HoA_total_hits=();

while(<>)
{
  my @split_hit_total = split(/\s+/, $hit_total);
  my $pfam_ac_hit = $split_hit_total[1];
  my $protein_ac = $split_hit_total[3];
  my $iEvalue = $split_hit_total[12];
  my $seq_start = $split_hit_total[19];
  my $seq_end = $split_hit_total[20];

  my $range_b=$seq_start.'-'.$seq_end;
  push @{ $HoA_total_hits{$protein_ac} }, $range_b;
}