for my $file (@test_files) {
  # use $file here
  while (<TEST_FILE>) {
    # use $_ here
  }
}