zusätzlicher hinweis:
my $num_hsps = $#ar + 1; sieht reichlich umständlich aus.
einfacher:
my $num_hsps = @ar;