for ( @nvalue ) {
  print "$_\n$_->[0]\n$_->[0][0]\n";
  $d++;
  print join(", ",$_->[$e][$d]);  # XXX: join() ?
}
print "\n";