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