$ ls test
bar_002.tst  baz_003.tst  faz_004.tst  foo_001.tst

$ cat test.list
001
002
003
004

$ perl -pale '$p=<test/*_$F[0].tst>; s/^/$p /' test.list
test/foo_001.tst 001
 002
test/baz_003.tst 003
 004


##</code><code>##

 glob    In list context, returns a (possibly empty) list of filename
         expansions on the value of EXPR such as the standard Unix shell
         /bin/csh would do. In scalar context, glob iterates through
         such filename expansions, returning undef when the list is
         exhausted.