perl Test-Memory-Cycle