#!/usr/bin/perl -slw
use strict;
use constant { END => 0, REP => 1 };

my %reps;

while(<>){
    chomp;
    my @array = split;
    $reps{ $array[0] }{ $array[1] } = [ $array[2], $array[3] ];
}


my $start = 160;
my $end = 210;
my $chr = "chr2";

for my $s ( sort { $a <=> $b } keys %{ $reps{ $chr } } ){
    if( $start <= $reps{ $chr }{ $s }[ END ] ) {
        last if $s >= $end;
        print "$chr $s $reps{ $chr }{ $s }[ END ] $reps{ $chr }{ $s }[ REP ]\n";
    }
}