our %df_keys; sub directories_first { return ($df_keys{$main::a}||=df_key($main::a)) cmp ($df_keys{$main::b} ||= df_key($main::b)); }