#!/usr/bin/perl
use strict;
use warnings;
my @selectedBranches = qw/ Branch1 Branch2 Branch3 /;
my @selectedFiles    = qw/ FileA FileB FileC FileD /;

for my $branch (@selectedBranches) {
    print "Branches copied: $branch.\n"; 
}
for my $file (@selectedFiles) {
    print "Files copied: $file.\n"; 
}

for my $branch (@selectedBranches) {
    print "Branches copied: $branch.\n"; 
    for my $file (@selectedFiles) {
        print "Files copied: $file.\n"; 
    }
}