sub DoSomething {
   my @array;
   alias( @array ) if want( 'ARRAY' );
   #Do Stuff Directly to the destination array
   return;
}
...
my @returned = DoSomething();