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