Help for this page
my @third_fragments = grep !/$rsite3/, $second_fragments[$i];
my @third_fragments = grep !/$rsite3/, @second_fragments;
$first_fragments[-1] = $rsite1.$first_fragments[-1];