Doesn't look horrible at all; it's a combination of the standard idiom for restricting something to the smallest possible scope (do { local whatever; expression } or do { no strict "refs"; $$symref }) combined with the stuff that a plain while (<FILE>) does implicitly for you (while (defined($_ = <FILE>)).