system("map > temp");
open(M, "<temp") or die ...;
@dmap=<M>;
close(M);