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