my %test1; my %test2; %test1->{'_tag'} = "ol"; %test2->{'class'} = "nobr"; $anzahl_rules = 2; while($anzahl_rules > 0){ print"$anzahl_rules\n"; @all_normal_lists = $tree->look_down(%test1,%test2); print"Versuch $anzahl_rules: ".scalar(@all_normal_lists)."\n"; $anzahl_rules--; }