$final_fragments{scalar @final_fragment1} = $third_fragments[0];
$final_fragments{scalar @final_fragment2} = $third_fragments[scalar @third_fragments - 1];