#for my $ns (@namesvr) {
#    for my $keys (sort keys %$ns) {
#        print "$keys => $ns->{$keys}\n";
#    }
#    print "\n";
#}
#exit;