> ls -1
abc.txt
def.txt
xyz.boo

##</code><code>##

> perl -e '@a=qw(*.txt xyz.boo);foreach $f (@a) {print "$f->";$y=glob($f);print $y,"\n";}'
*.txt->abc.txt
xyz.boo->def.txt

##</code><code>##

> perl -e '@a=qw(*.txt xyz.boo);foreach $f (@a) {print "$f->";($y)=glob($f);print $y,"\n";}'
*.txt->abc.txt
xyz.boo->xyz.boo

##</code><code>##

> ls -1
abc.txt
def.txt
xyz.boo
> perl -e '($y)=glob("*.txt");print $y,"\n";'
abc.txt
> perl -e '($y)=glob("boo.txt");print $y,"\n";'
boo.txt