@all_files_including_dot = do { opendir my $dh, "."; grep { $_ ne '.' && $_ ne '..' } readdir $dh };
@all_dotfiles = do { opendir my $dh, "."; grep { $_ ne '.' && $_ ne '..' && /\A\./ } readdir $dh };