my @files = <$dir/.* $dir/*>;

##</code><code>##

use File::Glob qw( bsd_glob );

my @files = ( bsd_glob("$dir/.*"), bsd_glob("$dir/*") );