for (my $i = 0; $i < scalar @first_fragments; ++$i)