sub make_complex_array {
  my @args=@_;
  # ...
  return $complex_array_ref
}
sub do_funky_stuff_with_complex_array {
  my $array=shift;
  # ....
  return $value;
}