my @third_fragments = grep !/$rsite3/, $second_fragments[$i];

##</code><code>##

my @third_fragments = grep !/$rsite3/, @second_fragments;

##</code><code>##

$first_fragments[-1] = $rsite1.$first_fragments[-1];