I've never used globs, so I don't know if there's a way of making them work. Therefore, I'll suggest an alternative. You could always use DirHandle + regexp:

use DirHandle ();

$dh = DirHandle->new('.')
or die("oh poo!\n");

while (defined($file = $dh->read()) {
   # Next line not needed here, but usually is.
   #next if ($file =~ /^\.\.?$/);

   next unless ($file =~ /^...4000.\./);

   print("\n$file");
}

$dh->close();
[download]

On second thought, this returns long files names, and I'm guessing your glob returns short file names? Ah well, it's already typed, so I'll post it in case it helps someone.