Select Code to Download

my @root = (1022, 2);

$verbose and warn "found " . @root . " root nodes: " . join(" ", grep 
+{ defined } @root[0 .. 7]);

Use of uninitialized value in hash element at ./rock-cut line 163.
Can't use an undefined value as an ARRAY reference at ./rock-cut line 
+171.

$verbose and warn "found " . @root . " root nodes: " . join(" ", @root
+[0 .. (@root < 8 ? @root : 8) - 1]);

grep { defined } @root[0 .. 7]

#!perl
use warnings; no warnings "uninitialized";
...
$t = $h{17}; @t = @h{18, 19};
$D->dumpValues(\@a, \%h);
__END__

0  ARRAY(0x81495c0)
   0  empty slot
...
   5 => 5
   6 => 5
   7 => undef