Select Code to Download

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

...
my @elements = (
...
    my $r = $document->Range($start, $end);
    ...
}