foreach (@test_array) {
    print qq|Before while: [$_]\n|;

    open(IN, $0) || die "No file: $!\n";
    while (<IN>) {  }
    close IN;

    print qq|After while: [$_]\n|;
}