open TEST_FILE, '<', $_ or die ...

##</code><code>##

print while <TEST_FILE>;

##</code><code>##

print <TEST_FILE>;

##</code><code>##

for my $filename (@test_files) {