require Data::Dumper;
print Data::Dumper->new([\@mda],['@mda'])
    ->Indent(1)->Terse(1)->Dump();