use strict;
use warnings;
my $i;
my $j;
my $seq;

open my $m, '<', 'count_try.txt' or die 'Cannot open count_try.txt';
while ($seq = <$m>) {
    chomp $seq;
    
        my (@range) = split(/\t/, $seq);
        my ($fm, $to) = split(/\.\./, $range[1]);

my $r = $range[0];
        for ($i = $fm; $i <= $to; $i++)
{ $j = $r + 150;
if ($i >= $r and $i <= $j)
{$range[$i] = 1;}
else
{$range[$i] = 0;}
print $range[$i]."\t";
}

    
}
close $m;