sub gen_arr {
  my $inner_arr=shift;
  
  print my $outer_arr=[];
  
  return $outer_arr;
}

gen_arr gen_arr;

#prints ARRAY(0xa179880)ARRAY(0xa179760)