foreach my $lang (@langs) {
        foreach my $project (@projects) {
                mkpath ("$project/$lang");
                foreach my $target (@targets) {
                        my $backup = $backup_file;
                        my $output = $output_save_file; 
                        print "Mirroring $project ($lang) now...\n";
                        # Other stuff happens here
                }
        }
}