How to delete multiple files using TCL?

In TCL, deleting a single file is easy, just type:

file delete filename

However, if you want to delete hundreds of lines, simply typing file delete filenames* does not work. Instead, I found the following to work:

eval file delete [glob filenames*]