my $contig = 3;
my $foo = 6;
if ($foo < 8) {
   my $contig = 5;
}
print "contig = $contig\n";
__END__
contig = 3

##</code><code>##

my %master = (
   167280 => (chromosome => 1, contig => 'NT_077402.1'),
   217280 => (chromosome => 1, contig => 'gap'),
   257582 => (chromosome => 1, contig => 'NT_077911.1'),
   # etc
);
NUMBER: foreach my $number (@numbers) {
   foreach my $key (sort { $a <=> $b } keys %master) {
      if ($number < $key) {
         my $chromosome = $master{$key}{chromosome};
         my $contig     = $master{$key}{contig};
         #do whatever processing here; I'll just print

         print "chromosome = $chromosome, contig = $contig\n";
         next NUMBER;
      }
   }
}