open IN, "$filename.merged";
while (<IN>) {
   chomp(my $line= $_);
   my @array = split(/\t/, $line);
   if ($array[1] >= $cutoff){  # cutoff is defined earlier in original script
      $array[0] =~/(chr.+):(\d+)-(\d+)/;
      foreach ($2..$3) {$breakpoint{$1}{$_}=1;}  #would it be $line?