Yet another way to do it:

#!/usr/bin/perl
use strict;
use Set::Infinite;

my $z8 = Set::Infinite->new( 
    [10,374],  [376,379], [382,385], [388,499], [530,534], 
    [541,543], [618,619], [700,704], [707,709] 
);

print "Found it!\n" if $z8->contains( 34 );
[download]