perl Data-Hierarchy