#foreach my $array ( @{$arrayRef} )
#{
#       if($param2) {
#               my @result=();
#               while ($array->[1] =~ /Match/igm) {
#                       push @result, $1. " --> " .$2. "\t";
#               }
#               printf "%-90s :  %-s\n", $array->[0], join(" ",@result);
#       }else{
#               print "$array->[0]\n", "${$array}[1]\n";
#       }
#}