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

##</code><code>##

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

##</code><code>##

$_[0]

##</code><code>##

$_->[0]