in reply to An efficient way to do this?

See Net::IP for dealing with ranges of ips without all those nested loops. And Re^4: How to improve memory usage in this script?? for an example of usage that may or may not be applicable to your situation.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

In Section Seekers of Perl Wisdom