Select Code to Download

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

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

$_[0]

$_->[0]