if (my $Elem = $Sammlung->GetFirst) {
  { ...
    $Elem = $Sammlung->GetNext() and redo;
  }
}