Select Code to Download

my @langs       = ('en', 'de', 'fr', 'it', 'gr', '...');
my @projects    = ('dogs', 'cats', 'birds', 'horses');
my @targets     = ('images', 'data', 'links', 'other');

endogs, encats, enbirds, enhorses
dedogs, decats, debirds, dehorses
frdogs, frcats, frbirds, frhorses
itdogs, itcats, itbirds, ithorses
grdogs, grcats, grbirds, grhorses

endogs/images.tar.bz2
endogs/data.tar.bz2
...
decats/data.tar.bz2
decats/links.tar.bz2
decats/other.tar.bz2

foreach my $lang (@langs) {
        foreach my $project (@projects) {
...
                }
        }
}

'it' => 'Italian' { ... },
'es' => 'Spanish' { ... },
...