@ip = { 'xxx.xxx.xxx.xxx', 'xxx.xxx.xxx.xxx', 'xxx.xxx.xxx.xxx' };
foreach (@ip) {
    if($ENV{'REMOTE_ADDR'} eq $_) {
        print "さくらのうんこ萌え";
        exit;
    }
}

http://う～ん