my ($c, $start, $end) = (2, 0, 0);
foreach $elemetns(keys %hash)
{
    $start = $end;
    $end += length $elemetns;
    ...
    my $r = $document->Range($start, $end);
    ...
}