$some_object->one_method->other_method( [map { ... } map {...} @$source_aref] )

##</code><code>##

$some_object->one_method->other_method( [
   map {
      ...
   } map {
      ...
   } @$source_aref
]);

##</code><code>##

use subs qw(
    fribble_aref
    frobble_aref
);

my $results_aref =
  fribble_aref
    frobble_aref
      $source_aref
;
my $other_object = $some_object->one_method;
$other_object->other_method( $results_aref );

sub fribble_aref {
    return [map { ... } @{+shift}];
}

sub frobble_aref {
    return [map { ... } @{+shift}];
}