open(DOC,'sample_testing');
   while(<DOC>)
   {
    $_.=<DOC>;
   foreach my $value (@final_array) 
   {
     s/$value/pagingRAC/g; 
   }
      print $_;
   }