print `dir /b $source\\*.txt > $source\\dir_list.lst`; #$source is declared just before the sub is called

##</code><code>##

  @list = glob "$source\\*.txt";