sub popnum3 {
    my @inner_aob = @{ shift @_ }; # reconstitute a reference

##</code><code>##

sub popnum3 {
   my $aobref = shift @_;  # Just pass and use the ref instead.