If I understood your question, you want to replace $age with $age->{$File::Find::dir}