....... my $hitname; print "
"; while ( my $hit = $result->next_hit ) { $hitname = $hit->name(); while ( my $hsp = $hit->next_hsp ) { ...... print "

> " ....; } } print ""; print "

"; .....