my %dirlist = map { $_ => $ret[$_] } $[..$#ret;