Thank you for your reply (and thank you for the note regarding the structure error - Fixed now).
However, I'm in a position where I can't install Data::Diver (or any other external module for that matter). Do you have any "core Perl" solutions to suggest?