#!perl
use warnings; no warnings "uninitialized";
use Dumpvalue; $D = Dumpvalue->new;
sub f { print $_[0]; } sub g { $_[0] = 5; }
f($a[1]); f(@a[2, 3]); g($a[5]); g(@a[6, 7]);
print $a[9]; print @a[10, 11]; () = grep 0, $a[13]; () = grep 0, @a[14, 15];
$t = $a[17]; @t = @a[18, 19];
f($h{1}); f(@h{2, 3}); g($h{5}); g(@h{6, 7});
print $h{9}; print $h{10, 11}; () = grep 0, $h{13}; () = grep 0, @h{14, 15};
$t = $h{17}; @t = @h{18, 19};
$D->dumpValues(\@a, \%h);
__END__