$chr =~ s/^chr//; # remove chr if it's there
### or, if chr must be there:
# substr $chr, 0, 3, ''; # removes first three characters
if (defined $input[$chr]) {
  for my $i (@{$input[$chr]}) {
    if ($pos <= $i->{pos} && $i->{pos} <= $pos+35) {