In addition to the other bugs, I think:

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

should be written as:

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

The problem is that

$_[0]
[download]

means "element 0 of the @_ array", whereas

$_->[0]
[download]

means "element 0 of the array referred to by $_".

_____________________________________________________
Jeff japhy Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;