Help for this page
sub popnum3 { my @inner_aob = @{ shift @_ }; # reconstitute a reference
sub popnum3 { my $aobref = shift @_; # Just pass and use the ref instead.