use strict;
use Set::IntSpan;
my $z8Set = Set::IntSpan->new("10-374,376-379,382-385,388-499,530-534,541-543,618,619,700-704,707-709");
my $num = 8;
print "Found\n" if $z8Set->number($num);