for my $element (@elements)

##</code><code>##

for (my $index = 0; $index <= @elements; ++index) {
    my $element = $elements[$index];