my @rule0 = ('_tag', 'ol','class','nobr'); my @rule1 = ('_tag', 'ol','style','margin-top:-11px','onmouseover','return true'); @{$rules{rule0}}=@rule0; @{$rules{rule1}}=@rule1; #print @{$rules{rule1}}[0]; while($it_rules < scalar keys %rules){ @all_normal_lists = $tree->look_down(@{$rules{'rule'.$it_rules}}); print"Versuch $it_rules: ".scalar(@all_normal_lists)."\n"; $it_rules++; undef(@all_normal_lists); }