foreach my $i ( 0 .. $#first_fragments )