#!/usr/bin/perl
use strict;
use warnings;

my @line01 = ([200900, 202543],
              [202544, 204187],
              [204188, 205831],
              [205832, 207475],
              [207476, 210119],
              [210120, 211763],
              [211764, 213407],
              [213408, 215051],
              );

my $vector = 206000;
for my $i (0 .. $#line01) {
    if ($vector >= $line01[$i][0] and $vector <= $line01[$i][-1]) {
        print $i+1 . "\n";
    }
}