I've seen that exact same code before (apart from the two lines that now have $atdomain instead of $domain), with the same question.

I mumbled something about Tie::File. That might still be a nice solution.

— Arien