#!/usr/bin/perl
use strict;

# Zone 8
my %z8;
$z8{$_}++ for ( 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 $z8{$num};