if ($info =~ /(\d+)-(\d+)/) {
        $changes{$file}{$_} = 1 foreach ($1..$2)
    } else {
        $changes{$file}{$info} = 1;
    }