$ARG
$_      The default input and pattern-searching space.
        The following pairs are equivalent:

                   while (<>) {...}    # equivalent only in while!
                   while (defined($_ = <>)) {...}