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