Hi, I am unsure about what you are trying to achieve here as there is very little of the code.

$_ is a global variable and quite a few places in perl use $_ as the default.

To know more use 'perldoc perlvar' and you will have a good explanation of where and how $_ can be used.

Below is a small program that uses $_ as the default for both the while loop and the print statement.

I hope this helps.

Arnaud.

use strict;
use warnings;
use autodie;

while(<DATA>) {
    print;
}

__DATA__
Test A
Test B
[download]