foreach my $name(keys %input) {
        if ($input{$name}[1] eq $chr) {
            if ($input{$name}[2] > $pos-1 && $input{$name}[2] < $pos+36) {