use strict;

# Zone 8 
my $z8 = "10-374,376-379,382-385,388-499,530-534,541-543,618,619,700-704,707-709";

my $num = "34";
print "Found it!\n" if $num =~/[$z8]/;