sub get_parent { return $parent[${$_[0]}]; }