Select Code to Download

use strict;
use warnings;
...
for my $dir (@mds) {
   # create $dir if applicable
}

my $callout_loc = '/path/to/xml/stuff';
my $file        = "$callout_loc/mdlist.xml";

mkdir $dir or warn "$dir already exists: $!";