sub show_hash
{
 local ($k,$v);
  return if (!%{$_[0]});
  while (($k,$v) = each(%{$_[0]})) { print "$k=$v\n"; }
}

# To show each item from Rec in a list (hash-list: key + hash ) 
sub showrec_list
{
  return if (!%{$_[0]});
  local %h_lst=%{$_[0]};
  local $lnum=1;
  local ($item,$k,$v);

      print "<pre>\n";
      foreach $item (keys (%h_lst)) {
            push (@h_lst_list, $h_lst{$item});
            print "_________________________________________________$lnum\n";
            foreach $k ( keys (%{$h_lst{$item}})) {
                 local $v=${$h_lst{$item}}{$k};
                 print "$k\t=\t$v \n";
            }
            $lnum++;
      }
      print "__________________________________________________\n";
      print "TOTAL: $lnum \n";
      print "__________________________________________________\n";
      print "</pre>\n";
}
