%hash是Hash;@array是数组( 牢记哈)
牢记哈)
#traverse ruleIndics
$pointer = \%ruleIndics;
foreach $keyword (keys %ruleIndics ) {
   
   $list = $$pointer{$keyword };
   $size = @$list;
   print "keyword=$keyword , [$size ] ";
      
   for($index=1 ; $index<$size; ++$index) {
     $value = $ruleIndics{$keyword}[$index];
     print "regexp=$value \n";
   }
}