sub Get_MDs
{
    my ($mds) = @_;
    my @results;
    foreach $key (keys (%{$mds->{md}})) {
        push(@results, $mds->{md}->{$key}->{'name'} . $key);
    }
   return @results;
}


##</code><code>##

my @mds = Get_MDs($mdlist);


##</code><code>##

checkdir($_) foreach (@mds)

##</code><code>##

die "problem: $@" if $@;