I am surprised that 4000A.01 matches the patter. Anyway, if you want to fine-tune what names match your pattern, you could try using readdir instead of glob, like (untested):

@files_to_pull = grep /\A...4000.\./, do { opendir my $dir, "."; readd
+ir $dir; };
print "\n$_" for @files_to_pull;
[download]