sub DESTROY { delete $agedata{+shift}; }