print "key: $k\n";
  my $i=0;
  for my $vv (@$v){
    print "  values $i: ". join( ', ', @$vv ) ."\n";
    $i++;
  }