sub mkdir_if_needed
{
    my ($dir) = @_;
    return if -d $dir;
    mkdir($dir,0755) or
       warn "Could not mkdir: $!\n";
    return;
}

##</code><code>##

foreach my $dacdir ( @allDACDirs )
{
    my $curr_dir;
    my $entry;
    # Read the array and populate
    foreach $entry (@{$dacdir})

    ...