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

   while ( my($pattern,$high_lvl_id) = each(%hash1) ) {
       my $match = qr/\b$pattern\b/;
       for my $text (@text) {
           if ( $text =~ $match ) {
               my $text_id = $reverese_hash2{$text};
               ...
           }
       }
   }