foreach $i (map {glob} "COMFILE1.2008*")

You don't need to wrap a map around your glob.

$ ls
copy1  copy2  file1  file2  file3
$ perl -le 'foreach $i ( glob q{c*} ) { print $i }'
copy1
copy2
$
[download]

Cheers,

JohnGG