for (my $element = 0; $element<$total_element; $element++)