for (my $Elem = $Sammlung->GetFirst(); $Elem; $Elem = $Sammlung->GetNext()) {....}