%dirlist = (
  "$i" => "$_",
);