perl Tie-Cycle Tie::Cycle