This has little to do with WWW::Mechanize - you will need to learn Perl, and about Perl data structures and loops. Maybe perlintro or Modern Perl will help you there.