Select Code to Download

while (my($text_id,$text) = each(%hash2) ) {
      if ($text =~ $match)

   my @text = values %hash2;
   my %reverse_hash2 = reverse %hash2;
...
           }
       }
   }