use Tie::DATA ( 
        sub{ ... },  # parse key/values from DATA 
        sub{ ... }   # process pairs
    );

    ...

    __DATA__

    ...