my @dots = grep { /^\./ } readdir(DIR);

Your regular expression says to match only file names that begin with a period, you probably want:

my @dots = grep { -f } readdir(DIR);
[download]

Which will match only "plain" files or:

my @dots = grep { /\.jpg\z/i } readdir(DIR);
[download]

Which will match only JPEG files.