{
    local $_;
    while (<DATA>)
    {
        ...
    }
}